Question

sa se calculeze suma elementelor unui vector in pascal recursia​

Answer 1

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.