получить случайное число в соответствии с заполненным одномерным массивом (Delphi)

[Artsiom]

Вечер добрый. Опять вопрос из разряда можно ли и как.
Имеется одномерный массив с i=от 1 до 1000. Он заполнен 0 и 1(привязано к индексу!).
Нужно получить рандомно цифру от 1 до 1000, НО что бы в нашем одномерном массиве соответствовал ноль этой цифре как индексу.
Короче.
s[5]=1
RandomRange(1,1000) не должен включать в себя 5.
Собственно написать легко в функции, там цикл, рандомный выбор и проверка условия.

Останавливает меня только то, что в массиве(1..1000) может быть только один ноль. И сколько же оно будет считать пока подберёт...
Может существует спец функция по такому поводу? Или как ещё сделать?
Буду очень рад помощи.

[Poma][a]

Эм, ни понимаю это :

Он заполнен 0 и 1(привязано к индексу!)

и это :

НО что бы в нашем одномерном массиве соответствовал ноль этой цифре как индексу.

Было бы хорошо если бы Вы показали простой наглядный пример, базируясь на котором можно было бы создать алгоритм.

[BDA]

Сформируйте на основе данного массива новый, который будет содержать только подходящие номера, и делайте рандом от него. Например:
1 2 3 4 5 6 7 8 9 (позиция)
1 0 0 1 1 1 1 1 0 (данные)
Преобразуем в:
1 2 3 (позиция)
2 3 9 (число)
И рандом от 3

[Artsiom]

Сообщение от Poma][a

Было бы хорошо если бы Вы показали простой наглядный пример, базируясь на котором можно было бы создать алгоритм.

s[1]=1
s[2]=0
s[3]=1
s[4]=0
...
s[1000]=0
RandomRange(1,1000)= 3. Не подходит, т.к. s[3]=1.
RandomRange(1,1000)= 1000. Подходит, т.к. s[1000]=0.

Сформируйте на основе данного массива новый, который будет содержать только подходящие номера, и делайте рандом от него.

Спасибо!

[Serge_Bliznykov]

Сообщение от Artsiom

Имеется одномерный массив с i=от 1 до 1000. Он заполнен 0 и 1(привязано к индексу!).

Останавливает меня только то, что в массиве(1..1000) может быть только один ноль.

а Вам не кажется, что эти два утверждения противоречивы? Или у Вас массив заполняется по правилу - элементы с чётным индексом - нули, с нечётным - единицы, но тогда там ноль явно не один, либо правила заполнения вашего одномерного массива S какие-то другие?...


p.s. если правила формирования одномерного массива не такие элементарные - то совет от BDA отлично подойдёт!

[evg_m]

телепатия подсказывает человеку нужна выборка с исключением.

выбрали, поставили 1 (и дальше это число не выбирать).

в этом случае можно использовать алгоритм перемешивания.
заполнили массив данными по порядку, перемешали их.
(например взяв два случайных индекса и поменяв данные местами и так много-много раз)
И далее выборка по порядку из хаотически расположенных данных.