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

Question

Информатика

Алюся

25 апреля, 21:39

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

+2

Ответы (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.