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

Question

Информатика

Юнит

22 декабря, 03:07

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

+5

Ответы (1)

Знаете ответ на вопрос?

Гюльджана · 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.