условие: заданы элементы m1,m2...m20. преобразование:m20,m19...м11,m1,m2...m10.

Sub lab6()
Const N = 20
Dim Z As Double, Left As Double, Left1 As Double
Dim A(1 To 20) As Double
Dim I As Integer
For I = 1 To 20
A(I) = InputBox("Ввод числа для" & _
" элемента (" & I & ")")
Next I

\\разворот массива
For I = 1 To N \ 2
Z = A(I)
A(I) = A(UBound(A) - I + 1)
A(UBound(A) - I + 1) = Z
Next i
\\помогите преобразовать точнее поставить м1, м2... между м11 и м10

зделала

может кому пригодится ^^