Заполнить массив случайными числами (положительными и отрицательными)

из произвольного диапазона. Вывести созданный массив на экран, расположив

элементы в одну строку через пробелы. Посчитать количество отрицательных,

положительных и нулевых элементов.

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.