Перепишите программу на Паскале, исправив ошибки: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.

Ответы:

Ануш Наумова

02-05-2012 17:58

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.

Марк Ляшенко

02-05-2012 18:54

Массив с другими скобкамиArray[-10..10]

Также наши пользователи интересуются:

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Перепишите программу на Паскале, исправив ошибки: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.» от пользователя Радислав Карасёв в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!