Вывод произвольного количества элементов массива в произвольном порядке

[winwebber]

Может есть у кого идея, как реализовать. как я планировал.
Есть файл с цветами colors.txt

white
blue
black
red
green

Code: [Select]

TFReadArr("colors.txt",$colors_arr)
//каким-то образом перемешать элементы массива
FOR($i=0,$i<rnd(1,arrsize($colors_arr))
 print("color=",arrpop($arr))
END_CYC
Итого получаем произвольное количество элементов массива в произвольном порядке

[Shada]

Code: (clickermann) [Select]

LOGCLEAR
TFReadArr("colors.txt",$colors_arr)
$count = RND(1,137) // Количество цветов
LOGWRITE ("Количество выбранных цветов - ", $count)
LOGWRITE ("------------------")
FOR($a = ARRSIZE($colors_arr) - 1, $a > -1, -1)
   $n = RND(0,$a)
   LOGWRITE ($colors_arr[$n])
   $colors_arr[$n] = $colors_arr[$a]
   $del = ARRPOP($colors_arr)
   INC($count,-1)
   IF($count = 0)
      $a = 0
   END_IF
END_CYC
HALT