Question

Где ошибка в программе?

Answer 1

Ошибка в программе заключается в неправильном использовании цикла for и некорректном объявлении массива a. Вот исправленный вариант программы:

program zadanie_2_b;

var

 i: integer;

 a: array[1..11] of integer;

begin

 for i := 1 to 10 do

 begin

   write ('a[', i, ']=');

   readln (a[i]);

 end;

 

 for i := 1 to 10 do

   writeln ('a[', i, ']=', a[i]);

end.

Внесенные изменения:

1. Исправлено объявление массива a с использованием двух точек (..) вместо многоточия (…).

2. Исправлены индексы цикла for, чтобы они не перекрывали друг друга.

3. Добавлен оператор begin перед циклом чтения элементов массива.

4. Заменена процедура read на readln для чтения значений массива с новой строки.

5. Добавлен оператор writeln для вывода значений массива после заполнения.