Найдите ошибку в программе по Pascal: Var a:array[-10..10] of integer; Begin For I:=1 to 20 do Readln(a[I]); For I:=1 to 20 do a[I]:=a[I]/10; For I:=1 to 20 do Writeln ('a[I]=', a[I]); end.

Предыдущий
вопрос Следующий
вопрос

Ошибка в данной программе состоит в том, что при объявлении массива a указаны индексы от -10 до 10, однако в цикле for используются индексы от 1 до 20.

Исправленный вариант программы будет выглядеть следующим образом:

Var
a: array[-10..10] of integer;
I: integer;

Begin
For I:=-10 to 10 do
Readln(a[I]);

For I:=-10 to 10 do
a[I]:=a[I]/10;

For I:=-10 to 10 do
Writeln ('a[', I, ']=', a[I]);
End.