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

Question

Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. После ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое. Подсказка: необходимо объявить переменную-счетчик, которая будет считать количество введенных чисел, и переменную, которая будет накапливать общую сумму чисел.СДЕЛАТЬ С ПОМОЩЬЮ ПАСКАЛЯ,ПОЖАЛУЙСТА!

Answer 1

Var
  i, sum: integer;
  arr: array[1..10000] of integer;

begin
  i := 0;
  sum := 0;
  repeat
    i := i + 1;
    readln(arr[i]);
    sum := arr[i] + sum;
  until (arr[i] = 0);
  writeln('Кол-во введённых чисел: ', i - 1);
  writeln('Их общая сумма сумма = ', sum);
  writeln('Их среднее арифметическое = ', sum / (i - 1));
end.

Comments

Спасибо!