В массиве из 12 элементов, заданных по формуле F[i]=i^2-5i-14

Найдите сумму положительных значений

1) Заполним массив по формуле из условия

2) Пройдёмся по массиву и посчитаем сумму положительных значений.

Всё можно сделать в одном цикле.

Код

var

f: array[1 ... 12] of integer;

i, ans: integer;

begin

ans : = 0;

for i : = 1 to 12 do

begin

f[i] : = i * i - 5 * i - 14;

if f[i] > 0 then ans : = ans + f[i];

end;

writeln (ans);

end.