Напишите рекурсивную функцию, которая возвращает среднее из n элементов массива чисел - Pascal

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

Напишите рекурсивную функцию, которая возвращает среднее из n элементов массива чисел. помогите сделать с помощью функции или процедуры ! Заранее спасибо.

Решение задачи: «Напишите рекурсивную функцию, которая возвращает среднее из n элементов массива чисел»

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

uses crt;
const n=10;
var m:array[1..10]of integer;
var i:integer;
 
function SR(n:integer):real;
begin
 if n=1 then Sr:=m[1] else
 SR:=((n-1)*SR(n-1)+m[n])/n;
end;
 
begin
 clrscr;
 write('-> ');
 for i:=1 to n do read(m[i]);
 readln;
 writeln('SR=',sr(n):0:5);
 readln;
end.

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

В данном коде используется язык программирования Pascal. Он содержит следующие элементы:

uses crt;: Подключение стандартной библиотеки ввода-вывода.
const n=10;: Определение константы n, которая равна 10.
var m:array[1..10]of integer;: Объявление переменной m, которая представляет собой массив целых чисел размером от 1 до 10.
var i:integer;: Объявление переменной i, которая является целочисленной.
function SR(n:integer):real;: Объявление функции SR, которая принимает целочисленный аргумент n и возвращает вещественное число SR.
begin: Начало блока кода.
if n=1 then Sr:=m[1] else: Если n равно 1, то присвоить переменной Sr значение m[1], иначе выполнить следующие действия:
- Вызвать функцию SR(n-1) (заменив n на n-1).
- Присвоить переменной SR результат вычисления (n-1)*SR(n-1)+m[n]\) делённого наn`.
end;: Конец блока кода функции SR.
begin: Начало блока кода.
clrscr;: Очистка экрана.
write('-> ');: Вывести на экран символ ->.
for i:=1 to n do read(m[i]);: Чтение n значений из массива m в переменную i.
readln;: Ожидание нажатия клавиши для завершения чтения.
writeln('SR=',sr(n):0:5);: Вывести на экран строку SR= с десятичным представлением значения функции SR(n).
readln;: Ожидание нажатия клавиши для завершения вывода.
end;: Конец блока кода.