Question

Задача по паскалю тип integer 
каких элементов в массиве больше положительных или отрицательных

Answer 1

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.