■ Pascal_024 ► Generar n números aleatorios

Ejercicio 024: Generar "n" números altearorios.

Entrada: Cantidad de números a generar y número más alto.

Salida: Los "n" números aleatorios.

Program Pascal_024;

uses

    crt;

var

    n, max, aleatorio, i : integer;

Begin

    clrscr;

    WriteLn('¿Cuántos números aleatorios serán?');

    ReadLn(n);

    WriteLn('¿Cuál será el número más alto?');

    ReadLn(max);

    

    for i:=1 to n do

    begin

        aleatorio := random(max);

        WriteLn(aleatorio);

    end;

End.