Сформировать массив из 10 случайных целых чисел из промежутка от - 5 до 5, вывеси элементы массива в строку черенз пробел, найти сумму всех положительных элементов.

Question

Информатика

Агафа

18 июля, 23:38

Сформировать массив из 10 случайных целых чисел из промежутка от - 5 до 5, вывеси элементы массива в строку черенз пробел, найти сумму всех положительных элементов.

+5

Ответы (1)

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

Акиндин · Answer 1

Var

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

i, s:integer;

begin

s:=0;

for i:=1 to 10 do

begin

a[i]:=random (10) - 5;

if a[i]>0 then

s:=s+a[i];

write (a[i],' ') ;

end;

writeln;

writeln ('Сумма пол. = ', s) ;

end.