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

Метод на условном языке.

m:=0.  "количество отрицателных"
p:=0    "количество положительных"
i:=1.
пока ilt;gt;0 повторять
    i:=прочитать число, введенное с клавиатуры.
    если igt;0 то p:=p+1.
    если ilt;0 то m:=m+1.
конец цикла пока.
вывести на экран('процент положительных = ', p/(p+m)).
вывести на экран('процент отрицательных = ', m/(p+m)).

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