76

Из 10 вводимых чисел найти количество отрицательных

gold579 19 марта 2023

Из 10 вводимых чисел найти количество отрицательных

категория: информатика

44

var i, a, k: integer; begin k: =0; for i: =1 to 10 do begin readln (a); if a < 0 then k: =k+1; end; writeln ('количество отрицательных -', k); end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...