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;
 i:integer;
Begin

For i:=1 to 20 Do
begin
Read(a[i]);
a[i]:= round(a[i]/10);
Write(a[i]);
  End.