Задача по паскалю тип integer

+ 0 -

Dombrowa2014

28 авг. 2013 г., 1:27:52 (10 лет назад)

var a: array [0..9] of integer;
    i, j: integer;
begin
     write('     ');
     for i := 0 to 9 do
     begin
          a[i] := random(51) - 25;
          writeln('[', i, '] => ', a[i]);
     end;
          for i := 0 to 9 do
     if (a[i] < 0) then 
       dec(j)
     else
         if (a[i] > 0) then
            inc(j);
     if (j > 0) then writeln('+ > -');
     if (j = 0) then writeln('+ = -');
     if (j < 0) then writeln('+ < -');
end.