Pascalban tömb véletlenszerű elemeinek generálása úgy, hogy egy elem maximum egyszer fordulhat elő?

Pascalt nem ismerem, de valami ilyesmi a megoldás:

i = 1

while ( i<n ) {

j = 1

elöfordult = false

szam = random

while ( j<i !elöfordult ) {

elofordult = ( A[j]==szam )

}

if (!elofordult) {

A[i] = szam

i = i+1

}

}

Az egyik megoldás: Amint kiválasztasz egy elemet, úgy megvizsgálod, hogy már generálva lett-e az adott elem. Ha nem, akkor eltárolod egy „már generált elemek” tartalmú tömbbe.

Másik megoldás: Kártyapakli. Ha a tömb elemeinek eredeti sorrendje a továbbiakban már nem kell, akkor elindulsz a tömbön az első elemtől az utolsóig. Mielőtt kiírod az adott indexű elemet, megcseréled egy véletlenszerűen kiválasztott „nem előző” (következő vagy önmaga) elemmel. Előny: Kisebb memóriaigény. Hátrány: A tömb eredeti sorrendje elveszik.