Question

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

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.