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

[БрикДи]

1.Ввести массив А (N). Найти арифметическое значение массива. Четные элементы массива разделить на среднее арифметическое. Вывести преобразованный массив.
2.Ввести массив А (N). Найти максимальный элемент массива. Нечетные элементы массива уменьшить на максимальный. Вывести полученный массив.

Где здесь ошибка?
1.

Sub primer_23()
Dim a(8) As Double
Dim i, sa, k As Double
sa = 0
For i = 1 To 8		‘ цикл
   a(i) = Cells(1, i)		‘ ввод массива а
   sa = sa * a(i)		‘ вычисление произведения элементов
Next i
sa = sa / 8			‘ вычисление сред.арифметического  элементов массива
For i = 1 To 8		‘ цикл
     k = a(i) Mod 2		‘ вычисление остатка от деления на 2
     If k = 0 Then a(i) = a(i) / sa		‘ четные элементы делим на величину среднего арифметического
Next i
For i = 1 To 8		‘ цикл
    Cells(4, i) = a(i)		‘ вывод преобразованного массива
Next i
Cells(2, 1) = "Среднее арифметическое = " & sa
End Sub

[IgorGO]

для начала замените комментарий
sa = sa * a(i) ‘ вычисление произведения СУММЫ элементов
(и замените * на +)

[БрикДи]

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

для начала замените комментарий
sa = sa * a(i) ‘ вычисление произведения СУММЫ элементов
(и замените * на +)

Спасибо все вышло