program prim2;
  uses crt;
  var a: array [1..10000] of integer;
      i,k,n,l:integer;
begin
  randomize;
  clrscr;
  write('чucлo элементов n=');readln(n);
  for i:=1 to n do 
    begin
      a[i]:=random(45)-22;
      write(a[i],' ');
{Сравниваем с нулем и считаем неотрицательные и отрицательные элементы.}
      if a[i]>=0 then k:=k+1 else
      l:=l+1;
    end;
  writeln;
  writeln(' нeompuц. = ', k, ' отриц.= ', l);
  readln;
end.