{con esa versión no tienes que tener problemas puesto que es la correcta revisa bien la copia puesto que el programa esta echo con pascal 7.0 también.
Copia esto pegarlo en bloc de notas guárdalo en donde tengas pascal pero pon que te lo
guarde como [el nombre.pas no como texto o sea no txt }
program numeros;
uses
crt;
var
arraynume : array[1..5] of integer;
t, p, nu : integer;
sis, fin : boolean;
begin
clrscr;
fin := false;
p := 1;
sis := false;
randomize;
repeat
nu := random(101);
for t := 1 to p do
if (arraynume[t] = nu) or ( nu = 0) then
sis := true;
if sis = false then
begin
arraynume[p] := nu;
p := p + 1;
if p > 5 then
fin := true;
end;
sis := false;
until fin = true;
for t := 1 to 5 do
write(' ',arraynume[t]); readkey;
end.
Crear cuenta