[Данные, строки] Рандомный выбор числа 1 раз...

[Ganibal95]

Здравствуйте, у меня есть переметная в ней находится число 10(число может изменятся, это -же переменная)
Мне нужно перебрать все числа рандомно, но что -бы одна и таже не повторялась...
например: 1,3,2,4,6,7,5,9,8,10

 

[xaker]

#include <Array.au3>

$x = 10		;твоя переменная
$value = _Test($x)
_ArrayDisplay( $value )

Func _Test($var)
	Local $array[$var+1], $ArrayRandom[$var+1]
	$array[0] = $var
	$ArrayRandom[0] = $var
	For $i = 1 To $var
		$array[$i] = $i
	Next
	_ArrayDisplay($array)
	For $i = 1 To $array[0] - 1
		$random = Random ( 1, $array[0] - $i + 1, 1)
		$ArrayRandom[$i] = $array[$random]
		_ArrayDelete($array, $random)
	Next
	$ArrayRandom[$var] = $array[1]
	Return $ArrayRandom
EndFunc

 

[AZJIO]

_RandomEx