Пусть 30 чисел водятся по одному. Определить что больше, количество положительных или...

Question

Пусть 30 чисел водятся по одному. Определить что больше, количество положительных или количество отрицательных чисел. На Паскале

Answer 1

begin

pol:=0;

otr:=0;

for i:=1 to n do begin

  readln (a[i]);

  if a[i]>0 then pol:=pol+1;

  if a[i]<0 then otr:=otr+1</p>

end;

if pol

   else if pol=otr then writeln('одинаково')

              else writeln('больше положительных')

end.