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

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.

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]:=round (a[i]/10) ;

For i:=1 to 20 Do Write (a[i]) ;

end.

И вообще можно написать так

Program massiv;

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

Begin

For i:=1 to 20 Do

begin

Read (a[i]) ;

a[i]:=round (a[i]/10) ;

Write (a[i]) ;

end;

end.