programa en lazarus

[Ñuño Martínez]

Empezado por cuteprincess

(... ) no c declarar un arreglo y como recorrerlo

Hola cuteprincess.

Además de lo comentado por arturom, te voy a explicar cómo crear y recorrer una lista (array).

El siguiente código crea una lista con 10 elementos, les asigna un número a cada uno y después los escribe en pantalla. Para probarlo, debes decirle a Delphi que es un programa de consola ("console project"):

Código Delphi [-]
PROGRAM PruebaLista;
{$APPTYPE CONSOLE}

VAR
(* Aquí declaramos la lista.  Cuenta desde 1 hasta 10. *)
   ListaNumeros: ARRAY [1..10] OF INTEGER;
(* Este es un contador para el bucle. *)
   Ndx: INTEGER;

BEGIN
(* Primero, preguntamos diez números. *)
   FOR Ndx := 1 TO 10 DO
   BEGIN
      Write ('Introduce el número ', Ndx, ': ');
      ReadLn (ListaNumeros[Ndx]);
   END;
(* Ahora los escribe. *)
   Write ('Los números introducidos son: ');
(* Primero, del uno al ocho... *)
   FOR Ndx := 1 TO 8 DO
      Write (ListaNumeros[Ndx], ', ');
(* Y ahora el nueve y el diez. *)
   WriteLn (ListaNumeros[9], ' y ', ListaNumeros[10]);
(* Finalmente esperamos a que el usuario pulse una tecla. *)
   WriteLn ('Pulse cualquier tecla para terminar.');
   ReadLn;
END.

Y ya sabes, si tienes alguna duda, busca o pregunta.