Перепишите программу на паскале, исправив ошибки: - вопрос №1648414 от kimhakip09577 21.11.2020 07:56

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.

kimhakip09577 · Answer

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....