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

[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);
...

[volvo]

Merlin,

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

А это зачем писалось:

5. Самое главное - это раздел теоретический, т.е. никаких задач и программ - для этого есть отдельный раздел!

?

[Merlin]

klem4 Спасибо