2 задачи на массивы. почему не работают ??? ((((

[ProgFrog]

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

Sub pr1()
Dim a(5)
n = 5
For i = 1 To 5
a(i) = Cells(1, 1)
P = 1
P = P * a(i)
P = P ^ (1 / n)
Next i
For i = 2 To n Step 2
a(i) = a(i) + P
Next i
Cells(2, 1) = P
Cells(2, 2) = a
End Sub

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


Sub pr2()
Dim i As Integer
Maximum As Single
InputArray
Maximum = a(1)
For i = 2 To n
If Maximum < a(i) Then Maximum = a(i)
Next i
a(n) = Maximum 'Последний элемент массива заменить на минимальный.
OutputArray 'Вывести преобразованный массив
End Sub

[doober]

Sub pr1()
Dim a(5)
n = 5
P = 1
For i = 1 To 5
a(i) = Cells(1, i)
P = P * a(i)

Next i
P = P ^ (1 / n)
Cells(2, 1) = P
For i = 2 To n Step 2
a(i) = a(i) + P
Cells(3, i) = a(i)
Next i
End Sub

[ilm93]

Помогите пожалуйста с массивами.Очень надо.если не трудно то с объяснениями.


1. Ввести массив A(10). Найти среднее геометрическое значение массив. Все элементы массива разделить на среднее геометрическое. Вывести преобразованный массив.

2. Ввести массив A(10). Найти среднее арифметическое значение массива. Из четных элементов массива вычесть среднее арифметическое. Вывести преобразованный массив.

3. Ввести массив A(10). Найти максимальный элемент массива. Последний элемент массива увеличить на максимальный. Вывести преобразованный массив.

4. Ввести массив A(10). Нечетные элементы массива заменить на сумму элементов массива. Вывести преобразованный массив.

5.Ввести массив A(10).Найти минимальный элемент массива , произведение нечетных элементов массива.Заменить минимум на произведение.Вывести полученный массив.

[EducatedFool]

Ввиду резко возросшей активности студентов-бездельников
темы, не содержащие своих наработок, будут закрываться.

В этом разделе форума помогают разобраться в Вашем решении, а не штампуют лабы одну за другой.

Нет желания делать работу самостоятельно - обращайтесь в раздел Фриланс (там Вам всегда помогут, но не бесплатно)
Нет желания платить - выкладывайте свои наработки, и говорите, что конкретно у Вас не получается. В этом случае вы наверняка получите помочь, и ждать её придётся совсем недолго.

Впрочем, есть ещё раздел Помощь студентам - если хочется халявы, а денег жалко, - можете обратиться туда (есть небольшой шанс, что там кто-нибудь решит ваши задачки)

Ну а если наработок нет, а вы все же надеетесь получить готовое решение от профессионалов, - создавайте новую тему, и сразу указывайте цену, которую Вы готовы заплатить за решение.