Из массива целых случайных чисел Х(хi), где i=(1,2....n) получить массив Y=(y(m))

Option Explicit
Dim A(), A2() As Single, n As Integer, m As Integer, k As Integer
Dim i As Integer, j, p, p2 As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("Введите число", , 10)
ReDim A(1 To m) ' Размеры матрицы А
ReDim A2(1 To m)
    For i = 1 To m
            A(i) = Int(Rnd * 21 - 10)
    Print A(i); vbTab;
           
    Next i
Print
Print
   For i = 1 To m Step 2
    A2(i) = 0.5 * (A(i) + A(i + 1))
    Print A2(i); vbTab;
    
Next i
End Sub

Option Explicit
Dim A(), A2() As Single, n As Integer, m As Integer, k As Integer
Dim i As Integer, j, p, p2 As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("Введите число", , 10)
ReDim A(1 To m) ' Размеры матрицы А
ReDim A2(1 To m)
    For i = 1 To m
        A(i) = Int(Rnd * 21 - 10)
        Print A(i)
    Next i
Print
        For i = 1 To m Step 2
            A2(i) = 0.5 * (A(i) + A(i + 1))
            Print A2(i)
        Next i
End Sub