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

Question

В массиве из 12 элементов, заданных по формуле F[i]=i^2-5i-14 Найдите сумму положительных значений (pascal abc)

Answer 1

Program morebrains;

const

 n = 12; {Количество элементов массива}

var  

 F:array[1..n] of integer;

 s:string;

 i,sum:integer;

begin

 s:='**** -=Alphaeus=- ****';

 for i:=1 to 22 do begin write(s[i]); sleep(42) end;

{заполняем массив}

 writeln;  

 for i:=1 to n do F[i]:=i*i-5*i-14;

{Ищем сумму положительных}

 sum:=0;

 for i:=1 to n do

   if F[i]>0 then sum:=sum+F[i];

{Выводим сумму}

 writeln;

 writeln('Сумма положительных элементов равна ',sum);

end.

---