С клавиатуры вводятся N чисел. Составить прогрмамму которая подсчитывает количество отрицательных среди введенных чисел КАК МОЖНО БЫСТРЕЕ ​

lАндрей lАндрей    3   04.04.2021 18:48    1

Ответы
Даяна303 Даяна303  04.05.2021 18:51

язык 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.

то есть, вы можете вводить сколько угодно чисел, но последнее должно быть нулём.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика