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

Question

Информатика

Самона

27 октября, 16:46

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

+4

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