Найдите ошибку в программе по 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.
Найдите ошибку в программе по 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.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Ошибка в данной программе состоит в том, что при объявлении массива 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.