Mozes pouzit aj ten algoritmus co ti pisal vyssie, fungovat bude.

nahodne cislo je index pola, a do pola si davas hodnotu cislo karty.

Dim pole(36)

For cislo_karty = 0 to 15
 nahodne_cislo = vygeneruj nahodne cislo od 0 do 35 (pouzi google)
 opakuj ak (pole(nahodne_cislo) sa nerovna -1) toto:
      nahodne_cislo = vygeneruj nove nahodne cislo od 0 do 35 (pouzi google)
 koniec cyklu opakuj
 pole(nahodne_cislo) = cislo_karty

 nahodne_cislo = vygeneruj nahodne cislo od 0 do 35 (pouzi google)
 opakuj ak (pole(nahodne_cislo) sa nerovna -1) toto:
      nahodne_cislo = vygeneruj nove nahodne cislo od 0 do 35 (pouzi google)
 koniec cyklu opakuj
 pole(nahodne_cislo) = cislo_karty
koniec cyklu For

a mas v poli cisla kariet (v dvoch nahodnych polickach je hodnota 0, v inych dvoch nahodnych polickach je 1, atd.)

//oprava: to cislo karty pojde od 0 do 17 (mas 18kariet, 2*18 = 36 poli), ne do 15, sorry