Question

Мне нужно исправить ошибки в коде програма Pascal Program massiv; Var a:array[-10..10] of integer; Begin For i:=1 to 20 Do Read(a[i]); For i:=1 to 20 Do a[i]:=a[i]/10; For i:=1 to 20 Do Write(a[i]) End.

Answer 1

Ответ:

Program massiv;

Var i:integer;

a:array[-10..10] of real;

Begin

For i:=-10 to 10 Do

Read(a[i]);

For i:=-10 to 10 Do

a[i]:=a[i]/10;

For i:=-10 to 10 Do

Write(a[i],' ')

End.

Answer 2

Давайте рассмотрим предоставленный вами код и исправим в нем ошибки: ```pascal Program massiv; Var a: array[-10..10] of integer; i: integer; Begin For i:=-10 to 10 Do Read(a[i]); For i:=-10 to 10 Do a[i]:=a[i] div 10; For i:=-10 to 10 Do Write(a[i]); End. ``` Вот исправленные моменты: 1. Добавлена переменная `i: integer;` так как она не была объявлена, но использовалась в циклах. 2. Диапазон индексов в массиве a изменен с [1..20] на [-10..10], соответственно, циклы также корректировались под этот диапазон. 3. Вместо операции деления (/) для целочисленных массивов используется операция целочисленного деления (`div`). Пожалуйста, учтите, что при целочисленном делении дробная часть отбрасывается. Если вам нужно получить дробные результаты, то массив следует объявить для хранения дробных чисел (`real` или `double`) и использовать обычное деление (/).