Program a7_9;
uses crt;
const n=10;
var a:array[1..n] of integer;
      i,n1,n2:integer;
BEGIN
clrscr;
randomize;
n1:=0;
n2:=0;
for i:=1 to n do
  begin
    a[i]:=random(10)-5;
    write(a[i]:3);
    if a[i]>=0 then n1:=n1+1;
    if a[i]<0 then n2:=n2+1;
  end;
writeln;
writeln('Количесвто положительных эелментво массива равно ',n1:2);
writeln('Количество отрицательных элементов массива равно ',n2:2);
readln;
END.