Составьте функцию вычисления среднего значения элементов массива - Turbo Pascal

Формулировка задачи:

Составьте функцию вычисления среднего значения элементов массива.

Помогите пожалуйста, срочно нужно((

Решение задачи: «Составьте функцию вычисления среднего значения элементов массива»

Листинг программы

const n=100;
type TArr=array[1..n] of real;
function Avg(a:TArr):Real; var i:integer; s:real;
begin
 s:=0; for i:=1 to n do s:=s+a[i]; Avg:=s/n;
end;
 
var a:TArr; i:integer;
begin
 for i:=1 to n do readln(a[i]); Writeln(Avg(a)); readln;
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

n - количество элементов в массиве;
TArr - тип данных для массива;
a - переменная типа TArr, которая будет заполняться данными с помощью цикла for.
i - переменная типа integer, которая будет использоваться в цикле for для прохода по элементам массива;
s - переменная типа real, которая будет использоваться для хранения суммы всех элементов массива;
Avg - переменная типа real, которая будет использоваться для хранения среднего значения элементов массива. В функции Avg происходит следующее:
1. Переменная s инициализируется значением 0. Она будет использоваться для хранения суммы всех элементов массива.
2. Запускается цикл for, который проходит по всем элементам массива от 1 до n.
3. На каждой итерации цикла значение элемента массива a[i] добавляется к переменной s.
4. После завершения цикла значение переменной s делится на количество элементов массива n, и результат сохраняется в переменной Avg.
5. Функция Avg возвращает значение Avg как результат работы. В основной части кода происходит следующее:
6. Объявляется переменная a типа TArr и инициализируется значениями, считываемыми с помощью цикла for из стандартного ввода.
7. Вызывается функция Avg с аргументом a, и результат выводится на экран с помощью функции Writeln.
8. Запускается цикл for, который проходит по всем элементам массива от 1 до n.
9. После завершения цикла программа завершается, и пользователь может продолжить работу с программой.