язык Pascal:
var s,n:longint;
begin
s:=0;
repeat
readln(n);
if (n * (-1)) > 0
then s:=s+1;
until n=0;
writeln(s)
end.
то есть, вы можете вводить сколько угодно чисел, но последнее должно быть нулём.
