Я делаю игру миллионер. В начале икода я описываю 20вопросов. Потом в процедуре игры, в начале делаю цмкл отбора из этих 20 случайных 10:
for i:=1 to 10 do begin
k:=random(20)+1;
vopros[i]:=v[k];
end;
КАк мне сделать так, чтобы была проверка, если такой вопрос уже есть, то выбираем другой, ЭТО чтобы в моем мидлете вопросы не повторялись за игру.
я думал, может как-то так:
for i:=1 to 10 do begin
k:=random(20)+1;
for r:=1 to i do begin
if vopros[i]=vopros[r] then begin // если вопрос i равен ранним вопросам, то
vopros[i]:=v[k+1]; // вопрос i равен
end;
end
vopros[i]:=v[k];
end;
ПОМОГИТЕ:::