Imilka007

program Poz;

var a, b, c, i: integer;

begin

writeln('Введите 50 чисел.');

for i:=0 to 49 do

   begin

   readln(a);

   if a>0 then

       b+=1

   else

       c+=1

   end;

writeln('Количество положительных чисел = ', b, ' ', 'Количество отрицательных чисел = ', c)

end.