var a:array[1..300] of integer;
i,s1,s2,n:integer;
begin
writeln('введите кол-во элементов массива');readln(n);
for i:=1 to n do begin a[i]:=random(41)-20; write(a[i]:4);end;
s1:=0;
s2:=0;
for i:=1 to n do
if a[i]>0 then s1:=s1+a[i] else   s2:=s2+a[i];
writeln;
writeln('сумма отриц=',s2);
writeln('сумма полож=',s1);
end.