
Юрий
5 год назад
Исправьте ошибки: Program massiv;Var a:array(-10..10) of integer;BeginFor i:=1 to 20 DoRead(a[i]);For i:=1 to 20 Doa[i]:=a[i]/10;For i:=1 to 20 DoWrite(a[i])End.2.

ОТВЕТЫ

Венедикт
Oct 24, 2020
Во вложении
- верить или нет вам решать, я все делаю на совесть
89
Смежные вопросы: