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

Question

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

Answer 1

Var a,b,c,d:integer;beginc:=0; //счетчик положительных чиселd:=0; //счетчик отрицательных чиселa:=0; // счетчик цикла, чтобы после ввода 5 чисел выйти из него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.

Comments

выдал ошибку

---

Program lab_3;
var a,b,c,d:integer;
begin
c:=0;
d:=0;
a:=0;
writeln('введите 5 чисел');
while a<>5 do
begin
readln(b);
if b>=0 then
c:=c+1
else d:=d+1;
a:=a+1;
end;
writeln('положительных чисел ',c);
writeln('отрицательных чисел ', d);
end.

---

а что используете? PascalABC ?

---

турбо паскаль 5.5 онлайн

---

код рабочий, просто отличие синтаксиса есть, попробуй read вместе readln, write вместо writeln

---

Error: can't find symbol ("read", line 10)

---

так же выдает ошибку

---

а вы в какую версию паскаля используете?

---

запустила в паскальabc все работает

---

спс большое