Program n_1;

var i, a, b:integer; n: real;

begin

   a:=0; b:=0;

   for i:=1 to 20 do begin

       read(n);

       if n>0 then a:=a+1 else if n<0 then b:=b+1;

   end;

   writeln('Из 20 введенных чисел ', a, ' положительных(ое) и ', b, ' отрицательных(ое).');

end.

P.S. 0 не принято считать положительным или отрцательным числом.