Рекурсия Опции

[Merlin]

Можете показать на примере как находится :

Рекурсивная функция должна возвращать среднее из n элементов массива чисел.

[klem4]

type
  TArr = array[1..100] of integer;

function Sr(x : TArr; i : integer; n : integer) : single;
begin
  if i <= n then Sr := Sr(x, i + 1, n) + x[i] / n;
end;

var

  n,i : integer;
  x : TArr;
...
  writeln(sr(x, 1, n):2:2);
...