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

Question

Информатика

Параскева

21 августа, 09:16

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

+4

Ответы (1)

Знаете ответ?

Рюрик · 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

end;

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

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

end.