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

Пусть 30 чисел водятся по одному. Определить что больше, количество положительных или количество отрицательных чисел. На Паскале
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы