Question

Составьте программу, которая формирует массив из 12 случайных целых чисел , принадлежащих промежутку [-40; 40], и вычесляет сумму положительных чисел

Answer 1

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

var

k:integer;

begin

k:=0;

for i:=1 to 12 do begin

a[i]:=random(100)-40;

writeln(a[i]);

end;

for i:=1 to 12 do

if a[i]>0 then k:=k+a[i];

writeln(k);

end.