Загадка с циклом for-in loop при вводе в массив значений из консол - Pascal

Формулировка задачи:

Здравствуйте! При создании массива из 30 элементов с типом String и при последующем, входе в цикл for-in loop для ввода значений из консоли в массив c[], ввод сразу же прекращается. Испробовал различные варианты написания, но результат тот же.
VAR
c:array [1..30] of String;
i,N:integer;
 
begin
writeln('MAX VAL MASSIV X:'); 
read(N);
 
for i:=1 to N do //Цикл ввода в массив значений.
    begin
    writeln('CITY ',i,'NAME'); read(c[i]);
    end;
 
end.


textual

Код к задаче: «Загадка с циклом for-in loop при вводе в массив значений из консол - Pascal»

var c:array [1..30] of string;
    i,n:integer;
begin
repeat
write('Введите размер массива от 1 до 30 n=');
readln(n);
until n in [1..30];
writeln('Введите ',n,' названий городов');
for i:=1 to n do
 begin
  write('Город ',i,': ');
  readln(c[i]);
 end;
writeln('Список городов');
for i:=1 to n do
writeln(c[i])
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.400 из 5

Источник
Похожие ответы