ПАСКАЛЬ ДАЮ 45 БАЛЛОВ.Дана последовательность целых чисел, оканчивающаяся нулём....

Question

ПАСКАЛЬ ДАЮ 45 БАЛЛОВ.Дана последовательность целых чисел, оканчивающаяся нулём. Необходимо найти среднее арифметическое чисел этой последовательности. Ноль числом последовательности не считается.
ФОРМАТЫ ВХОДНЫХ ДАННЫХ:
Вводится не более, чем 2 в 15 степени целых чисел, каждое из которых не превосходит по модулю (2в 15 степени − 1). После последнего числа вводится 0. Гарантируется, что последовательность не пустая.
Форматы выходных данных:
Требуется вывести одно число — искомое среднее арифметическое. Результат целочисленно округлите вниз.

Answer 1

Var a,s,k:integer;
begin
writeln('Вводите числа:');
readln(a);
s:=0; k:=0;
while a<>0 do
 begin
 k:=k+1;
 s:=s+a;
 readln(a);
 end;
writeln('Среднее арифметическое = ',trunc(s/k));
end.

Пример:
Вводите числа:
5
3
9
4
7
0
Среднее арифметическое = 5