Вопрос Помогите найти ошибки в программах!) VBA

[slaks]

Задача № 14. Ввести массив А (N). Найти среднее геометрическое значение массива. Найти разность максимального элемента массива и среднего геометрического.

Sub primer14 ()
Dim A(6)
For i=1 to 6
A(i) = Cells (1,i)
Next i
P=1
For i=1 to 6
P=p*A(i)
Sp=p^(1/6)
Next i
max=A(1)
For i=1 to 6
If A(i)> max then
max A(i)
End if
Next i
Cells (3,1)= max
For i=1 to 6
A(i)= max –Sp
End if
Next i
For i=1 to 6
Cells (4,i)=A(i)
Next i
End Sub

Задача № 44. Ввести массив А (N). Найти максимальный элемент массива. Четные элементы массива заменить на максимальный элемент. Вывести полученный массив.

Sub primer44 ()
Dim A(8)
For i=1 to 8
A(i)= Cells (1,i)
Next I
max= A(i)
For i=1 to 8
If i=1 to 8
If A(i)>max then
A(i)= max
End If
Next i
For i=1 to 8
If A(i) mod 2= then
A(i)=max
Next i
For i=1 to 8
Cells (3,i)=A(i)
Next i
End Sub

Задача 74. Ввести массив А (N). Найти минимальный, максимальный элементы массива и их сумму. Вывести все результаты.

Sub primer 74 ()
Dim A(100)
For i=1 to 100
A(i)= Cells (1,i)
Next i
min=A(i)
For i=1 to 100
If A(i) < min then
min=A(i)
End If
Next i
max=A(i)
For i=1 to 100
If A(i) > max then
max=A(i)
End If
Next i
For i=1 to 100
S=max+min
Next i
Cells (4,1)=S
End Sub