Сформировать из 10 случайных чисел из отрезка [0; 25] и найти сумму положительных элементов массива.

Question

Информатика

Танюта

16 апреля, 12:57

Сформировать из 10 случайных чисел из отрезка [0; 25] и найти сумму положительных элементов массива.

+1

Ответы (1)

Знаешь ответ?

Геннаша · Answer 1

Program kol_vo_elementov;

var a:array[1 ... 10] of integer;

i, s:integer;

begin

for i:=1 to 10 do

begin

a[i]:=random (25);

write (a[i],' ');

if (a[i]>0) then

s:=s+a[i];

end;

writeln ('s=', s);

end.