Sub fuc()
S1 = 0
N1 = 0
S2 = 0
N2 = 0
Dim A(10)
For i = 1 To 10
A(i) = Worksheets("Лист1").Cells(i, 1)
Next i
For i = 1 To 10
If A(i) Mod 2 = 0 Then
S1 = S1 + A(i)
N1 = N1 + 1
End if
If A(i) Mod 2 = 1 Then
S2 = S2 + A(i)
N2 = N2 + 1
End if
Next i
Worksheets("Лист1").Cells(1, 3) = S1/N1
Worksheets("Лист1").Cells(1, 4) = S2/N2
End sub