Ejercicio3(arrays)

Plantee e implemente un programa en PASCAL que calcule la suma de los elementos de un array de números reales proporcionados por el usuario, considerando como máximo 30 elementos.


PROGRAM ejercicio(input,output);
(*Programa que contenga un array en el que se puedan insertar como máximo 30 elementos y que haga la suma de ellos considerandolos numeros reales introducidos por el usuario*)
TYPE
    TAelementos = ARRAY[1..30] OF real;
VAR
    Aelementos:TAelementos;
    a:integer;
(***************************************************************************************************************************************************)
PROCEDURE leer;

VAR
   I,elementos:integer;
   acumulador:real;
BEGIN
     I:=0;
     writeln('Cuantos elementos va a introducir por teclado?');
     REPEAT
     read(elementos);
     UNTIL (elementos>0) AND (elementos<=30);
     FOR I:=1 TO elementos DO
         BEGIN
         write('Introduzca el elemento numero ',I:2,':');
         read(Aelementos[I]);
         acumulador:=acumulador+Aelementos[I];
         END;
         writeln('La suma de todos los elementos es:',acumulador:2:2);
END;
(**********************************************************************************************************************************************************)
BEGIN
     leer;
     read(a);
END.

Ejemplo de ejecución

Anterior                                                                                                                                Siguiente