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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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