Пусть 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 else if pol=otr then writeln(одинаково) else writeln(больше положительных) end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
