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

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.