Народ подскажите как сравнить рандомное число и элементы массива. я пишу тест.
Код:
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;
при таком использовании всё равно вопросы повторяются(((( Подскажите как в этом случае сделать так чтобы не повторялись. Не предлагайте менять весь код уже времени нет.