Напишите программу,в которой осуществляется ввод целых чисел (ввод исполняется до тех

Напишите программу,в которой осуществляется ввод целых чисел (ввод исполняется до тех пор,пока не будет введён ноль) и подсчитать количество введённых положительных и отрицательных чисел.

Задать свой вопрос
1 ответ
Var pos,neg,i: integer;
begin
  pos:=0;  neg:=0;
  i:=1;
  while ilt;gt;0 do
  begin
    readln(i);
    if igt;0 then pos:=pos+1
    else neg:=neg+1;
  end;
  writeln('число положительных чисел = ',pos);
  writeln('число отрицательных чисел = ',neg);
end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт