Question

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

Answer 1

Числа: отрицательные, положительные или ноль. Ноль не вводится. Остальные фактически завершают ввод. Думаю, что ответ: всего одно число будет введено при таких условиях

Answer 2

pascal// var n,count:integer; count:=1; repeat inc(count); readln(n); until n<>0; writeln('Всего: ',count);

Answer 3

В предыдущем комментарии ошиблась count:=0;