Răspuns:
program sumaRecursiva;
var n,i:integer;
a:array[1..100]of real;
function suma(n:integer):real;
begin
if n=1 then suma:=a[1]
else suma:=a[n]+suma(n-1);
end;
begin
read(n);
for i:=1 to n do read(a[i]);
writeln('Suma lor este ',suma(n));
end.
Explicație:
in functia recursiva vectorul de numere a, este variabila globala.