Uses crt; var mas: array [1..10] of integer; x,sum1,sum2: integer; begin sum1:=0; sum2:=0; for x:=1 to 10 do begin mas[x]:=random(21)-10; write(mas[x]:4); if mas[x]>0 then sum1:=sum1+mas[x]; if mas[x]<0 then sum2:=sum2+mas[x]; end; writeln; writeln('Сумма отрицательных чисел: ',sum2); writeln('Сумма положительных чисел: ',sum1); end.
var mas: array [1..10] of integer;
x,sum1,sum2: integer;
begin
sum1:=0;
sum2:=0;
for x:=1 to 10 do begin
mas[x]:=random(21)-10;
write(mas[x]:4);
if mas[x]>0 then sum1:=sum1+mas[x];
if mas[x]<0 then sum2:=sum2+mas[x];
end;
writeln;
writeln('Сумма отрицательных чисел: ',sum2);
writeln('Сумма положительных чисел: ',sum1);
end.