помогите составить программу с оператором while вводятся 5 чисел.найти,сколько посреди их

Помогите составить программку с оператором while вводятся 5 чисел.найти,сколько посреди их положительных(включая 0) и сколько отрицательных.(числа вводятся в одну переменную в цикле).

Задать свой вопрос
1 ответ
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 все работает
Кирилл Лошутов
спс огромное
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт