Ejercicio 11 Estructuras Simples de Datos.

11. Plantee e implemente una función recursiva en PASCAL que devuelva la suma de los elementos de un array de enteros.


PROGRAM ejercicio_11 (input,output);
(*Ejercicio número 11 del boletín de estructuras simples de datos
Por Alejandro Trigo Rosón*)
TYPE
    TAarray = ARRAY [1..20] OF integer;
VAR
   Numero:TAarray;
   Resultado:integer;
   Inicio:integer VALUE (1);
   Fin:integer VALUE (20);
   c:integer;
PROCEDURE llenar;
          VAR
             i:integer;
          BEGIN
               i:=1;
               Write('Escribe los números que quieres que llenen el array: ');
               WHILE i<=20 DO BEGIN
                     Read(Numero[i]);
                     i:=i+1;
                     END;
               END;
             
FUNCTION sumar(Numero:TAarray;Inicio,Fin:integer):integer;
         VAR
            i:integer;
            sumatorio:integer;
         BEGIN

              IF Inicio<=Fin THEN
                 sumar:=Numero[Inicio] + sumar(Numero,Inicio+1,Fin)
              ELSE
                  sumar:=Numero[Fin];
         END;


BEGIN

     llenar;
     Resultado:=sumar(Numero,Inicio,Fin);
     Writeln(Resultado);
     Readln(c);
END.  

Ejemplo de ejecucion: