Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Венюся
07.10.2020, 03:03
Информатика

Напишите программу, запрашивающую у пользователя N целых чисел и выводящую на экран: а) количество нулей

в последовательности; б) количество положительных чисел; в) количество отрицательных чисел.
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Елфрида
Var n , k 1 , k 2 , k 3 , p , i : integer ; begin ; writeln ( ' Type N : ' ) ; readln( n ) ; for i : = 1 to n do begin ; readln ( p ) ; if p = 0 then inc ( k 1 ) ; if p > 0 then inc ( k 2 ) ; if p < 0 then inc ( k 3 ); end ; writeln ( ' 0 : ' , k 1); writeln ( ' + : ' , k 2 ) ; writeln ( ' - : ' , k 3 ) ; end.