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