Перепишите программу на паскале, исправив ошибки: 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.

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.

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