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

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.