[Artempokrowski]

Народ подскажите как сравнить рандомное число и элементы массива. я пишу тест.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

var ... a:array[0..1000] of integer; pos:integer; ... // это всё глобальные переменные;   procedure Tform1.uslovie(pos:integer); var x:integer; begin x:=0; while x<1000 do if a[x]=pos then begin  pos:=random(trunc(sl.Count/8));//значение меняется  x:=0;  showmessage ('');// ввёл для себя  end  else x:=x+1; end;

Admin: Пользуемся тегами! При рецедиве последуют санкции!

pos заранее задается.
в массив элементы записываются ещё до этого следующим образом

pos:=random(trunc(sl.Count/8));
nomervoprosa:=nomervoprosa+1;
tform1.uslovie(pos);
a[nomervoprosa]:=pos;

при таком использовании всё равно вопросы повторяются(((( Подскажите как в этом случае сделать так чтобы не повторялись. Не предлагайте менять весь код уже времени нет.