Option Explicit
Sub Nachalo()
Dim intKol3 As Integer
Dim intKol2 As Integer
Dim intIndex As Integer
Dim strArray As String
Dim intMin As Integer
Dim strN As String
Dim intI As Integer
Dim intJ As Integer
Dim intKol As Integer
Dim intRol() As Integer
Dim intRol2() As Integer
strN = InputBox("Введите натуральное число N", "Ввод числа")
intKol2 = Len(strN)
MsgBox ("Введено " + CStr(intKol2) + " цифр(ы)")
intKol = InputBox("Сколько эллементов в массив будем вводить?")
ReDim intRol(1 To intKol)
For intI = 1 To intKol
intRol(intI) = InputBox("Введите " + CStr(intI) + " элемент")
Next
intIndex = intRol(1)
For intI = 1 To intKol
strArray = strArray & intRol(intI) & Space(1)
If intRol(intI) < intIndex Then intIndex = intI
Next
intMin = intRol(intIndex)
MsgBox (strArray + Chr(13) + Chr(10) + "Минимальный элемент = " + CStr(intMin) + Chr(13) + Chr(10) + "Его индекс= " + CStr(intIndex))
ReDim Preserve intRol(1 To (intKol + 1))
ReDim intRol2(1 To intKol)
intJ = 0
For intI = intIndex + 1 To (intKol)
intJ = intJ + 1
intRol2(intJ) = intRol(intI)
Next
intRol(intIndex + 1) = intKol2
intJ = 0
For intI = intIndex + 2 To (intKol + 1)
intJ = intJ + 1
intRol(intI) = intRol2(intJ)
Next
strArray = ""
For intI = 1 To intKol + 1
strArray = strArray & intRol(intI) & Space(1)
Next
MsgBox (strArray)
End Sub