<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := SeqRandom(10000, -10, 10).Where(t -> t.IsEven)
.Take(15).ToArray;
a.Println;
a.Where(t -> t < 0).Count.Println;
a.Transform(t -> t < 0 ? 0 : t);
a.Println
end.
<h2>Пример</h2><h3>-6 10 2 4 -2 -4 2 2 10 -10 -6 -8 -8 2 -6</h3><h3>8 </h3><h3>0 10 2 4 0 0 2 2 10 0 0 0 0 2 0</h3>
=MIN($G$2; SUM($B$3:B3))
Короче, идея такая. Использовать функцию MIN.
Она выберет наименьшее значение из числа в ячейке G2 и суммы ячеек от B3 до текущей 3. (Знаком $ фиксируем адрес строки и столбца, чтоб при копировании не съехал).
Копируем, выделяем ячейку B4 ctrl+C выделяем С4 ctrl+V и в формуле автоматом B3 заменится на С3. Т.е. в С4 будет такая формула:
=MIN($G$2; SUM($B$3:С3)) и т.д. Или можно "протянуть за уголок"
У меня Calc от Libre Ofice. Оригинальный формат ods. При экспорте возможны ошибки. Я в каком-то Excel помнится встречал такое, что названия функций писались русскими буквами (МИН, СУММ).
Подправите под свою таблицу.
На картинке видно, что в ячейке E3 я превысил план.
1)15:3=5(ел)полученного!
Ответ:5
Просто подставляешь переменные в формулы и решаешь