Задача:пользователь вводит целые числа,пока не введет ноль,посчитать среднее...

Question

Задача:пользователь вводит целые числа,пока не введет ноль,посчитать среднее арифметическое данных чисел и сделать проверку на символы

Comments

Язык любой?

---

Паскаль abc.net

---

ноль учитывать? например 1 2 3 0? среднее арифметическое от трех или от четырех чисел? От трех 2 от четырех 1.5

---

пользователь вводит числа,пока не введет ,посчитать среднее арифметическое данных чисел

---

Мне нужно с кодом

---

Что значит проверку на символы, что должна делать программа если вы введете не целое число?

Answer 1

begin

 var x: integer;

 var s: integer;

 var Count := 0;

 repeat

   if not TryRead(x) then

   begin

     Writeln('This is not the integer number, try again');

     continue

   end;

   s += x;

   Count += 1;

 until x = 0;

 Println('Average =', s / (Count - 1))

end.