надо чтобы ответы менялись местами, всего три варианта ответа.. я делаю так:
RANDOMIZE; readln(f,st); j:=random(2)+1; for i:=1 to 3 do readln(f,b[i]); tmp:=b[1];b[1]:=b[j];b[j]:=tmp; writeln(st); for i:=1 to 3 do writeln(' ',i,'. ',b[i]); write('Введите номер ответа: '); readln(answer); if answer=j then inc(s);
проблема в том что меняются местами только 1 и 2 ответы, 3 всегда остается неизменным... в файле вопросы и ответы, расположены так (первый ответ всегда правильный):
ВОПРОС№1 первый ответ второй ответ третий ответ ВОПРОС№2 первый ответ второй ответ третий ответ
и т.д.
Автор: Malice 10.11.2006 21:51
Ну так поставь "j:=random(3)+1;"
Автор: Granit 10.11.2006 22:04
Цитата(Malice @ 10.11.2006 17:51)
Ну так поставь "j:=random(3)+1;"
просто я думал, если будет рандом = 3 и ещё + 1, тогда вообще не будет правильного ответа... а так все работает ! спасибо!