язык 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.
то есть, вы можете вводить сколько угодно чисел, но последнее должно быть нулём.
Поделитесь своими знаниями, ответьте на вопрос:
С клавиатуры вводятся N чисел. Составить прогрмамму которая подсчитывает количество отрицательных среди введенных чисел КАК МОЖНО БЫСТРЕЕ
язык 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.
то есть, вы можете вводить сколько угодно чисел, но последнее должно быть нулём.