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

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.