Question

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

Answer 1

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.