Организовать постоянный ввод чисел с клавиатуры, пока юзер не введёт 0.

Организовать постоянный ввод чисел с клавиатуры, пока юзер не введёт 0. После ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое. Безотлагательно!! В Паскале через repeat

Задать свой вопрос
Олег Жемаркин
Ноль считаем, как введенное число?
Игорян Тарнополь
Да
1 ответ
Var
a,b,i:integer;
ar:real;
begin
b:=0;
 repeat
     read(a);
    b:=b+a;
    i:=i+1;
  until a = 0;
  ar:=b / i;
writeln('Количество чисел = ', i);
writeln('Общая сумма = ', b);
writeln('Cреднее арифметическое = ',ar);
  end.
Inna Malypova
Спасибо
Gennadij
А б это?
Виталя Безнозрев
b сумма
Викулька
Спасибо
Мирослава Завражена
Как лучшим ответом сделать?
Тимур Садков
Точно не знаю, вроде через какое-то время сможешь сделать. Через 2-3 денька вроде.
Оля Каненкова
Ок
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт