ciao a tutti
so che il pascal non è più in uso ma magari qualcuno si ricorda qualcosa. Sto lavorando con gli array, e volevo creare un programma che simulasse l'estrazione dei numeri alla tombola (quindi creare 99 numeri diversi random nell'array).




il fatto è che all'inizio i numeri che escono sono tutti diversi, ma circa dopo i primi 15 esconoi solo 0... l'errore è percaso nella procedura RIEMPI?(che riempe l'array di numeri diversi)
è quest'ultima un'ipotesi probabile perchè è una procedura improvvisata sul momento
ecco il codice:
codice:
program tombola;
uses crt;
var vet:array[0..99] OF integer; i , j , num:integer; inter1 , inter2:boolean;


procedure riempi; begin
  for i:=1 to 90 do
     repeat
     num:=(random(89))+1;

          for j:=0 to i-1 do
             if vet[j]=num then inter1:=true;


              if inter1=false then begin  inter2:=true; vet[i]:=num; end;


      until inter2;


end;

corpo del programma....
non so, questa procedura mi puzza di bruciato, che ne pensate?