Question

Заполнить массив случайными числами (положительными и отрицательными)
из произвольного диапазона. Вывести созданный массив на экран, расположив
элементы в одну строку через пробелы. Посчитать количество отрицательных,
положительных и нулевых элементов.

Answer 1

var a: array [0..10] of integer;
    i, p, o, n: integer;
begin
     for i := 0 to 10 do
     begin
          a[i] := random(100) - 50;
          write(a[i], ' ');
          if (a[i] > 0) then inc(p);
          if (a[i] = 0) then inc(n);
          if (a[i] < 0) then inc(o);
     end;
     writeln();
     writeln(p, ' ', n, ' ', o);
end.