Перепишите программу на Паскале, исправив ошибки: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.
Гость
Ответ(ы) на вопрос:
Гостьa:array[-10..10] of real;i: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.
ГостьМассив с другими скобкамиArray[-10..10]
Не нашли ответ?
Похожие вопросы