Перепишите программу на Паскале, исправив ошибки: 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.
Перепишите программу на Паскале, исправив ошибки: 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.
Гость
Ответ(ы) на вопрос:
Гость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]:=round(a[i]/10); For i:=1 to 20 Do Write(a[i]); end. И вообще можно написать так Program massiv; Var a:array[-10..10] of integer; Begin
For i:=1 to 20 Do begin Read(a[i]); a[i]:=round(a[i]/10); Write(a[i]); end; end.
Не нашли ответ?
Похожие вопросы