Gleb1Kosyrev

Verified answer

//Pascal ABC.NET v3.1 сборка 1219

Var
 n,k1,k2,i:integer;
 r:real;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(r);
   if r>0 then k1:=k1+1;
   if r<0 then k2:=k2+1;
  end;
 writeln('Положительные:',k1);
 writeln('Отрицательные:',k2);
end.

Пример ввода:
4
-1.1
2
3
0
Пример вывода:
Положительные:2
Отрицательные:1