Исправьте ошибки: 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.
2.
112
439
Ответы на вопрос:
Популярно: Информатика
-
ndknmm20.03.2020 00:20
-
sergey1234567890f23.03.2020 11:21
-
karakatitsa127.04.2021 10:22
-
arlettmark15.11.2020 18:48
-
katerinaplachet08.06.2023 08:36
-
ника275216.12.2022 02:10
-
hlagga16.11.2022 14:34
-
juliina90223.04.2022 13:01
-
khana314.08.2020 02:25
-
RimValeria14.10.2022 11:44