Помогите пж(33 балла даю) Перепишите программу на Паскале, исправив ошибки:Program massiv; Var a:array(-10..10) of integer; Begi
Помогите пж(33 балла даю) Перепишите программу на Паскале, исправив ошибки: 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.