Remplit T en imposant que chaque élément ne se répète pas (via Recherche).
Procédure Remplir (@T :tab; N:entier) Début Lire(T[0]) Pour i de 1 à N-1 faire Répéter Lire(T[i]) Jusqu'à Recherche (T, T[i], i-1) = Faux Fin Pour Fin