Llenar un array

[[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.