Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.
10-11 класс
|
5402Жанна
27 апр. 2013 г., 22:58:17 (11 лет назад)
Stich1
28 апр. 2013 г., 0:09:29 (11 лет назад)
Program 4isla;
var
N, p, o, z, i: byte;
A: integer;
Begin
Readln (N);
for i:=1 to N do
Begin
Readln (A);
If A > 0 then
p:=p+1;
if A < 0 then
o:=o+1;
if A = 0 then
z:=z+1;
End;
Writeln ('Положительных чисел - ', p);
Writeln ('Отрицательных чисел - ', o);
Writeln ('Нулей - ', z);
Readln;
End.
Ответить
Другие вопросы из категории
Читайте также
Вы находитесь на странице вопроса "Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.