[Artempokrowski]

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

Код:

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;

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