Вводится последовательность ненулевых чисел, 0 - конец последовательности. Подсчитать процент положительных и отрицательных чисел.

Алгоритм на условном языке.

m:=0. "количество отрицателных"

p:=0 "количество положительных"

i:=1.

пока i0 повторять

i:=прочитать число, введенное с клавиатуры.

если i>0 то p:=p+1.

если i<0 то m:=m+1.

конец цикла пока.

вывести на экран ('процент положительных = ', p / (p+m)).

вывести на экран ('процент отрицательных = ', m / (p+m)).

Алгоритм будет верно работать, если введено хотя бы одно число, отличное от нуля. В противном случае возникнет ошибка деления на ноль. В нормальных программах подобные случаи отлавливаются и корректно обрабатываются.