помогите составить программу с оператором while вводятся 5 чисел.найти,сколько посреди их
Помогите составить программку с оператором while вводятся 5 чисел.найти,сколько посреди их положительных(включая 0) и сколько отрицательных.(числа вводятся в одну переменную в цикле).
Задать свой вопрос1 ответ
Ligeris Marina
Var a,b,c,d:integer;beginc:=0; //счетчик положительных чиселd:=0; //счетчик отрицательных чиселa:=0; // счетчик цикла, чтобы после ввода 5 чисел выйти из негоwriteln('введите 5 чисел');while alt;gt;5 do beginreadln(b);if bgt;=0 then c:=c+1else d:=d+1;a:=a+1;end;writeln('положительных чисел ',c);writeln('отрицательных чисел ', d);end.
Ekaterina Jasko
выдал ошибку
Херных
Гена
Program lab_3;var a,b,c,d:integer;beginc:=0; d:=0; a:=0;writeln('введите 5 чисел');while a<>5 do beginreadln(b);if b>=0 then c:=c+1else d:=d+1;a:=a+1;end;writeln('положительных чисел ',c);writeln('отрицательных чисел ', d);end.
Золоотенков
Данил
а что используете? PascalABC ?
Вячеслав Ажаликов
турбо паскаль 5.5 онлайн
Oleg Gurchenko
код рабочий, просто отличие синтаксиса есть, пробуй read вместе readln, write вместо writeln
Данька
Error: can't find symbol ("read", line 10)
Артём Загордиев
так же выдает ошибку
Лариса Распашнова
а вы в какую версию паскаля используете?
Славян Обробин
запустила в паскальabc все работает
Кирилл Лошутов
спс огромное
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов