Ответы на вопрос:
Var mas: array[1..100] of integer; min,i: integer; begin for i: =1 to 10 do read(mas[i]); min: =mas[1]; for i: =2 to 10 do if mas[i]< min then min: =mas[i]; mas[10]: =min; for i: =1 to 10 do write(mas[i],' '); end.
Популярно: Информатика
-
iarik200803.01.2020 13:00
-
Agent159701.03.2023 16:37
-
star101005.03.2020 07:27
-
goratkin200502.02.2022 03:14
-
Vrentor22.09.2021 17:16
-
ВкусноеМясо03.01.2023 00:13
-
КастрюлькаПик07.07.2021 18:46
-
66PrIvEt6666609.11.2021 05:41
-
098712345653016.10.2020 18:52
-
fedia2420.02.2023 18:10