Работа с одномерным массивом в Excel VBA. Вот задачка ,решенная мною.

[id50882902]

5. Ввести массив A(35) . Найти среднее арифметическое значение массива. Все элементы массива увеличить на среднее арифметическое. Вывести преобразованный массив.
Дело в том,что сама программа работает,но некоторые элементы массива увеличивает, а некоторые оставляет неизменными. Помогите,что не так. ВОт решение само.

Sub srednee_arifmeticheskoe()
Dim a(35) As Integer
Dim srznach As Integer
Dim s As Integer
[a1] = "Исходный массив"
[a3] = "Значение среднего
арифметического элементов массива"
[a5] = "Преобразованный массив"
Randomize
For i = 1 To 35
a(i) = 20 - Int(Rnd * 100)
Cells(2, i) = a(i)
s = 0: srznach = 0
s = s + a(i)
srznach = s / 35
[a4] = srznach
a(i) = a(i) + srznach
Cells(6, i) = a(i)
Next i
End Sub