Ответы на вопрос:
Sub m2() cells.clear dim n as integer, i as integer, min as integer n = inputbox("n(> 5) = ") cells(1, 1).value = "n = " + str(n) redim a(1 to n) for i = 1 to n a(i) = inputbox("a(" + str(i) + ")") next i cells(2, 1).value = "исходный массив" range(cells(3, 1), cells(3, = a min = a(1) for i = 2 to n if a(i) < min then min = a(i) next i cells(4, 1).value = "min = " + str(min) cells(5, 1).value = "полученный массив" for i = n - 4 to n a(i) = min next i range(cells(6, 1), cells(6, = a end sub
Популярно: Информатика
-
Znanija182109.02.2021 03:18
-
strange031122.01.2023 18:42
-
Xadice1234519.09.2022 12:07
-
Nilu200225.08.2021 13:13
-
marmakmp15.04.2021 01:23
-
teaego22.02.2023 16:03
-
Soul9in9the9dream13.02.2023 17:28
-
SeitZhanel1112.03.2023 02:15
-
186Kbkz28.11.2021 15:12
-
vadimnigamaev13.11.2021 18:35