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

[pacyl]

Приветствую, подскажите, что не правильно в этой программе?

Ввести массив A(N). Найти среднее геометрическое значение массива. Найти разность минимального элемента массива и среднего геометрического. Вывести полученный массив.

Sub Primer()
Dim A, P, Min As Integer
For i = 1 To N
    A(i) = InputBox("Введите число - элемент массива")
Next i
'Найти среднее геометрическое значение массива.
P = i
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

[doober]

'Найти среднее геометрическое значение массива.
P = 1' а не i
For i = 1 To N
    P = P * A(i)
Next i

[pacyl]

Сообщение от doober

'Найти среднее геометрическое значение массива.
P = 1' а не i
For i = 1 To N
    P = P * A(i)
Next i

да, я уже исправил, только все равно ничего не выходит. Выделяет желтым строку

P = P ^ (1 / N)

[doober]

Sub Primer()
    Dim A, P, Min As Integer
    N = InputBox("Введите количество элементов массива")
    ReDim A(1 To N)
    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

[pacyl]

Спасибо огромное, я понял свою ошибку)