编辑代码

program Count(input,output);
var
  n:real;
  i,a,b:integer;
begin
  a:=0;
  b:=0;
  for i:=1 to 20 do
    begin
    read(n);
    if n>0 then a:=a+1;
    if n<0 then b:=b+1;
    end;
  write(a,' ',b);
end.