Crear+lista+preguntando+antes+la+cantidad+de+números

=__**Crear lista preguntando antes la cantidad de números**__=

code format="pascal" PROGRAM ARR_0 ; CONST iLONG_FISICA = 100 ; TYPE taiVectores = ARRAY [1 .. iLONG_FISICA] OF Integer ;

PROCEDURE CrearLista (VAR aiLista : taiVectores ; iLongitud : Integer); VAR i : Integer ; BEGIN FOR i := 1 TO iLongitud DO      BEGIN Write ('Numero ', i:2, ': ') ; Readln (aiLista [i]) ; END ; END ;

PROCEDURE MostrarNumeros (CONST aiLista : taiVectores ; iLongitud : Integer); VAR i : Integer ; BEGIN FOR i := 1  TO iLongitud DO         Write (aiLista [i] : 8 ) ;

Writeln ; END ;

{- Variables del programa principal --} VAR aiLista  : taiVectores ; iLongitud : Integer ;

BEGIN {************* PROGRAMA PRINCIPAL ***********************}

iLongitud := 0 ; { Inicializar la lista como vacía }

Writeln ('Escribe los números de la lista:') ; Writeln ; REPEAT Write ('Indica cuantos elementos tiene la lista: ') ; ReadlN (iLongitud) ; UNTIL (0 <= iLongitud) ;

CrearLista (aiLista, iLongitud) ;

Writeln ; IF iLongitud > 0 THEN BEGIN WriteLn ('Lista de los numeros leidos: ') ; MostrarNumeros (aiLista, iLongitud) ; END ELSE Writeln ('Error: No has introducido ningun numero');

Writeln ; ReadLn ;

END. { FIN de Arr_0.PAS } code