Рекурсия:сумма ряда, Нужна помошь Опции

[Bac9]

Хелп!!помагите плз написать программу с рекурсивной функцией вычисляюший сумму элементов одномерного массива

[volvo]

program rekursiya;
uses crt;

{ сумма целых - она тоже целая, не вещественная }
function s(const a: array of integer; n: integer): integer;
begin
  if n = 0 then s := 0
  else s := a[n - 1] + s(a, n - 1);
end;

var
  i, size: integer;
  arr: array[1 .. 20] of integer;

begin
  Writeln('Vvedite kolichestvo elementov m:');
  Readln(size);

  writeln('vvedite elementi massiv');
  for i := 1 to size do readln(arr[i]);

  writeln(s(arr, size));
  readkey;
end.