vasenkova1981
?>

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

Информатика

Ответы

zakaz

язык 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 чисел. Составить прогрмамму которая подсчитывает количество отрицательных среди введенных чисел КАК МОЖНО БЫСТРЕЕ ​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

agent-ulitka5
Karpova
Vorotko814
Batrakova-Anna
Александровна1973
Египтян2004
Pastushenkoen
chapaevval
Евгеньевич-Куликов1614
ashantik
Грачева мураховская
Картузов-Алексей1252
ismailovi670771
Yumashev
Corneewan