Среднее геометрическое значение массива

Sub Procedure_1()
End Sub

worksheetfunction.Average()
worksheetfunction.GeoMean()

Sub Primer ()
Dim i As Integer, P As Double
InputArray  'Ввести массив A(N).
'Найти среднее геометрическое значение массива.
P = 1
For i = 1 To N
    P = P * A(i)
Next i
P = P ^ (1 / N)
'Найти минимальный элемент массива.
Minimum = A(1)
For i = 2 To N
    If Minimum > A(i) Then Minimum = A(i)
Next i
'Найти разность минимального элемента массива и среднего геометрического.
A(i) = Minimum - P
Next i
OutputArray 'Вывести преобразованный массив
End Sub

Sub Primer()
Dim A, P, Min As Integer
For i = 1 To N
    A(i) = InputBox("Введите число - элемент массива")
Next i
'Найти среднее геометрическое значение массива.
P = 1
For i = 1 To N
    P = P * A(i)
Next i
P = P ^ (1 / N)
'Найти минимальный элемент массива.
Min = A(1)
For i = 2 To N
    If Min > A(i) Then Min = A(i)
Next i
'Найти разность минимального элемента массива и среднего геометрического.
R = Min - P
MsgBox (R)
End Sub

Sub Primer()
 
    'Тип данных нужно указывать для каждой переменной.
    'Для массива нужно указывать круглые скобки.
    Dim A() As Integer
    Dim P As Integer, Min As Integer
    Dim N As Integer
    Dim R As Integer
    Dim i As Integer
    
    N = InputBox("Укажите, сколько чисел должно быть в массиве.")
    
    'Прежде чем работать с массивом
    'нужно указать его размер. Размер массива - это количество
    'элементов в массиве.
    'Размер массива задаётся с помощью ReDim.
    '1 To - используется, чтобы порядковый номер первого элемента массива
    'был один (по умолчанию ноль), чтобы было удобно писать код.
    ReDim A(1 To N)
    
    For i = 1 To N Step 1
        A(i) = InputBox("Введите число - элемент массива")
    Next i
    
    'Найти среднее геометрическое значение массива.
    P = 1
    For i = 1 To N Step 1
        P = P * A(i)
    Next i
    
    P = P ^ (1 / N)
    
    'Найти минимальный элемент массива.
    Min = A(1)
    For i = 2 To N Step 1
        If Min > A(i) Then Min = A(i)
    Next i
    
    'Найти разность минимального элемента массива и среднего геометрического.
    R = Min - P
    MsgBox (R)
    
End Sub