Di21H
@Di21H
Обычный человек

Как решить этот «баг» с циклом и массивом?

program test;
var
c,i,n:integer;
t:string;
testdata:array[1..5,1..5] of string;
Begin
Writeln('1 - Создать тест');
Writeln('2 - Тесты');
write('Мой выбор: ');
read(c);
Case c of
1:
begin
n:=1;
i:=1;
writeln('');
while i<5 do
begin
write(n,' вопрос: ');
readln(testdata[1,n]);
write('А)');
readln(testdata[2,n]);
i:=i+1;
n:=n+1;
end;
end;

end;
End.


В колледже дали задание сделать тест, вот сама программа(его начало). Она выводит:
1 вопрос: 2 вопрос:
Ввод данных.

Но мне нужно ввести вопрос, варианты, а она тупит если использовать в read именно массив. Вы все поймете если выполните эту программу.
  • Вопрос задан
  • 27 просмотров
Пригласить эксперта
Ответы на вопрос 1
jone21
@jone21
Кратко не получится
возможно вы ошиблись командой read - команда для чтения файла
ReadLn(S);
WriteLn('Вы ввели : ', S);
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы