проблема с массивом

[Dennis777]

Ребят, пожалуйста, 3й день парюсь. Помогите решить проблему с массивом. Допустим есть массив из 3 элементов. Его нужно заполнить числами 1, 2, 3, которые берутся случайно. a:=1+random(3) Как написать проверку, чтобы если выпавшее случайное число уже находится в массиве, заново бралось случайно число до тех пор, пока не попадется такое, которого еще нет в массиве?

[Stilet]

Полным проходом по массиву.

for i:=Low(массив) to high(массив) do
 if массив[i]=число then begin Такое число уже есть; break; end;

[Dennis777]

Спасибо. А как мне сделать так, чтобы происходило не прерывания цикла, а автоматически генерировалось новое число до тех пор, пока не найдется число, которого еще нет в массиве?

[Dennis777]

ну помогите кто-нибудь!)

[Stilet]

Вот так:

b:=false;
while not b do begin
Генерируем число;
b:=true;
for i:=Low(массив) to high(массив) do
 if массив[i]=число then begin b:=false; break; end;
end;

[Dennis777]

Огромное тебе спасибо. Очень выручил, я вроде и немного знаю делфу, но как то не получилось этот агоритм самостоятельно) пробелмы с массивами появились откуда то)

[Stilet]

Щит хапенин )