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

[Aisel]

Добрый вечер! Помогите пожалуйста решить задачи(
1. Ввести массив А (N). Найти среднее геометрическое значение массива. Из каждого элемента массива вычесть среднее геометрическое. Вывести преобразованный массив.
2. Ввести массив А (N). Найти среднее арифметическое значение массива. Найти разность первого элемента массива и среднего арифметического.
3. Ввести массив А (N). Найти минимальный элемент массива. Каждый элементов массива уменьшить на минимальный. Вывести полученный массив.
4. Ввести массив А (N). Найти частное от деления суммы четных элементов массива максимального элемента. Вывести сумму, максимум и частное от деления.
5. Ввести массив А (N). Найти максимальный элемент массива и заменить его на произведение элементов массива. Вывести преобразованный массив.

1.
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:
P=P ^(1/N)

ДАЛЕЕ не знаю как решать((