program qq;
Const m=10;
Type tN=array[1..m] of integer;
Var N:tN;
    kp,ko,i:integer;
Begin
     Writeln('ВВедите ',m,'Чисел');
     For i:=1 to m do 
         Begin 
              Readln(n[i]);
              if n[i]>0
              then inc(kp)
              else inc(ko);
         end;
     writeln('Количество положительных: ',kp, 'количество отрицательных',ko);
end.