Дан массив в котором есть положительные и отрицательные числа. Найти отдельно сумму положительных чисел и сумму отрицательных чисел.

var a:array[1 ... 100] of integer;

i, ms, ps:integer;

Begin

{vvod massiva A}

for i: = 1 to 100 do

if a[i] > 0 then ps:=ps+a[i]

else ms:=ms+a[i];

writeln (ps, ms) ;

End.

var

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

i, s, r:integer;

begin

for i:=1 to 100 do read (a[i]) ;

for i:=1 to 100 do

begin

if a[i]<0 then r:=r+a[i] else s:=s+a[i];

end;

writeln ('сумма всех положительных чисел = ', s) ;

writeln ('сумма всех отрицательных чисел = ', r) ;

readln

end.

Посчитает максимум 100 чисел.