Llenar un array

[donpedro]

hola a todos, necesito hacer el siguiente programa en delphi:

Elaborar un programa que permita ingresar 20 números y muestre todos los números ingresados menores e iguales a 25.

[[ElDioni]]

Hola, tendrás que crear un array de numeros enteros, tendrás que poner algún componente, como por ejemplo un edit, para ir metiendo los valores o también lo puedes hacer con inputbox, una vez relleno tendrás que recorrer el array con un bucle for o while e ir comparando los valores del array para ver si el número es menor que 25 haciendo la comparación con un if y entonces ir mostrandolo con un showmessage o en el mismo edit.
Busca por los foros que encontrarás preguntas ya resueltas sobre arrays, intenta crear algo de código y pregunta por las partes donde te vayas atascando, porque si no te habían respondido todavía seguramente será porque nadie te va a hacer el código integro de lo que necesitas, normalmente se espera que te esfuerces un poco en conseguir lo que quieres e ir ayudandote poco a poco para que vayas entendiendo como funciona sino no te serviría de nada.

Perdona por la charla.

Saludos.

[cloayza]

Podrias buscar información en google para comenzar...

Como trabajar con arreglos en delphi

Te apuesto a que algo encontraras

Otra alternativa es buscar en los foros del Club.

Pero has algo, no llegues y tires que te ayuden a hacer la tarea.

Saludos

[donpedro]

agradezco, su comentarios son muy valiosos, me he llevado de sus consejos y lo he logrado poniendo de mi parte,,,,, comparto el codigo que soluciono mi problema:

Código Delphi [-]
var
  F_PROG_1: TF_PROG_1;
    num:array[1..20] of integer;
    i:integer=1;
    x:integer;
implementation

{$R *.dfm}

procedure TF_PROG_1.Button1Click(Sender: TObject);

 begin
//este codigo es el que me llena el array con los valores de un edit

    if i<=20 then
       begin
           num[i]:=strtoint(edit1.Text);
           i:=i+1;
             edit1.SetFocus;
              end;

               if i=21 then
               showmessage('20 NUMEROS ACUMULADOS, PRESIONAR EL BOTON EJECUTAR');

end;

procedure TF_PROG_1.Button2Click(Sender: TObject);
begin

//este es el codigo que me compara si es menor e igual a 25 y me lo muestra
//en un listbox

if i=21 then
                  begin
                     for x := 1 to 20 do
                         begin
                            if num[x]<=25 then
                            begin
                                listbox1.Items.Add(inttostr(num[x]));
                            end;
       end;
   end
   else
   showmessage('DEBE INTRODUCIR 20 NUMEROS, NO MENOS');
   edit1.SetFocus;
end;

procedure TF_PROG_1.Button3Click(Sender: TObject);
var a:integer;
begin

//este el codigo que me limpia el edit y listbox y me libera el array
//para poder ejecutar una vez mas el programa

edit1.Clear;
listbox1.Clear;

for a := 1 to 20 do
 begin
if i>=1 then
i:=i-1;
 end;

 edit1.SetFocus;
end;

end.

[[ElDioni]]

Bien por ti,

te pongo una alternativa para que la introducción de los 20 números sea automática y así lo vayas probando.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
num:array[1..20]of integer;
begin
randomize();
for i:=1 to 20 do
  begin
    num[x]:=random(100);
  end;

Con random(100) lo que hace es generarte numeros aleatorios entre 0 y 100, si cambias el valor dado en el random puedes cambiar el margen para esos números aleatorios, antes de usar random tienes que llamar una vez al procedimiento randomize() que está arriba fuera del loop.

Saludos.

[donpedro]

ElDioni
Agradezco tu alternativa, la tendre pendiente... nunca he usado randomize(),,, y creo que con esta alternativa que me has puesto, empezare a utilizarla para proximos proyectos.....

gracias por el aporte, Dios te biendiga..