Дана последовательность из n целых чисел. Найти среднее арифметическое этой последовательности.

Program D1KPxx16;
uses crt;
var
a,sr:real;
i,n:integer;
begin
read(n);
for i:=1 to n do
begin
read(a);
sr:=sr+a;
end;
sr:=sr/n;
writeln(sr);
end.

все числа вводятся вручную, первое число-кол-во чисел, далее эти числа.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.