Перепишите программу ** Паскале, исправив ошибки:Program massiv;Var a:array(-10..10) of...

Question

Перепишите программу на Паскале, исправив ошибки:

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

A:array[-10..10] of real;i: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.

Comments

Теперь программа запускается, но на сколько правильно не понятно, поскольку нет условия задач

Answer 2

Массив с другими скобкамиArray[-10..10]