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, n)).Value = 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, n)).Value = a End Sub
C. 8
Объяснение:
Система счисления записи чисел с цифр;
Цифры - специальные знаки или символы для записи чисел;
Алфавит - набор цифр, используемые в системе счисления;
Основание - количество цифр в алфавите.
Алфавит каждой системы счисления начинается с нуля:
2-ая (основание) система счисления: 0, 1; (содержит две цифры)
3-ая (основание) система счисления: 0, 1, 2; (содержит три цифры)
4-ая (основание) система счисления: 0, 1, 2, 3; (содержит четыре цифры)
5-ая (основание) система счисления: 0, 1, 2, 3, 4; (содержит пять цифр)
6-ая (основание) система счисления: 0, 1, 2, 3, 4, 5 (содержит шесть цифр)
7-ая (основание) система счисления: 0, 1, 2, 3, 4, 5, 6; (содержит семь цифр)
8-ая (основание) система счисления: 0, 1, 2, 3, 4, 5, 6, 7; (содержит восемь цифр)
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, n)).Value = 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, n)).Value = a
End Sub