Ejercicio1(Arrays)

Plantee e implemente un programa en PASCAL que solicite números enteros por teclado y vaya almacenándolos en un array de 10 elementos, mostrando a continuación por pantalla el contenido del array creado.

PROGRAM enteros(input,output);
(*Programa que contenga un array que solicite enteros por teclado y los vaya almacenando en un array de 10 elementos y que a continuacion muestre los elementos por teclado*)
CONST
     elementos =10;

TYPE
    TAelementos = ARRAY [1..elementos] OF integer;
VAR
   Aelementos:TAelementos;
   a:integer;
(********************************************************)
PROCEDURE leer;
VAR
   I:integer;
BEGIN
   I:=0;
        FOR I:=1 TO 10 DO
         BEGIN
         write('Escriba el elemento numero ',I,':');
         read(a);
         Aelementos[I]:=a;
         END;
         END;
(*********************************************************)
PROCEDURE escribir;
VAR
   I:integer;
BEGIN
   I:=0;
        FOR I:=1 TO 10 DO
        writeln('El numero introducido en la seccion ',I,' es ',Aelementos[I]);
END;
(***********************************************************)
BEGIN
     leer;
     writeln;
     escribir;
     read(a);

END.

Ejemplo de ejecución 

Anterior                                                                                                                                Siguiente