Mukus
5 год назад
Мне нужно исправить ошибки в коде програма PascalProgram 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.
ОТВЕТЫ
West Kenneth
Oct 24, 2020
Program massiv;
Var i:integer;
a:array[-10..10] of real;
Begin
For i:=-10 to 10 Do
Read(a[i]);
For i:=-10 to 10 Do
a[i]:=a[i]/10;
For i:=-10 to 10 Do
Write(a[i],' ')
End.
179
Смежные вопросы:
