Не получается задача. Вот она.

[id50882902]

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


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

[IgorGO]

нужно два цикла:
в первом заполнили массив данными и посчитали сумму элементов
нашли среднее
во втором цикле увеличили элементы массива на величину среднего

удачи!