Паскаль. Нужно написать программу с массивами для викторины. Я написала, но она работает...

Question

Паскаль. Нужно написать программу с массивами для викторины. Я написала, но она работает не полноценно, задаётся только первый вопрос, в чём ошибка? помогите

---

---

Comments

Ошибок не вижу. Может, дело в таком прекрасном модуле crt?

---

Вот весьма утрированный вариант Вашего кода. Работает идеально, только значения и тип массивов поменяйте.

---

Const n=10;Var ans,que,answ:array[1..n] of integer; i:integer;begin for i:=1 to n do begin ans[i]:=i; que[i]:=i; end; for i:=1 to n do begin writeln('Que', i); writeln(que[i]); write('Answ:'); readln(answ[i]); if answ[i]=ans[i] then writeln('True') else writeln('False'); end;end.

---

спасибо огромное

Answer 1

Попробуйте вынести проверку условия в отдельный цикл.

Comments

как это сделать?