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

Question

Информатика

Данилка

16 ноября, 14:58

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

+2

Ответы (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.