12. Дан массив h(6). Заполнить массив случайными значениями. Найти среднее геометрическое элементов массива, вывести массив на экран

Sub olol()

Dim h(6), i, pr, S As String

pr = 1

For i = 0 To 5

h(i) = Int(Rnd * 100 + 1)

pr = pr * h(i)

S = S & Str(h(i)) & " "

Next i

sg = (pr ^ (1 / 6)) ‘ формула ср.геометр pr^(1/n) а не pr*(1/n) как в задачах, кот прислала препод.

For i = 0 To 5

Next i

MsgBox "Массив: " & S & Chr(10) & Chr(13) & _

"Среднее геометрическое = " & sg

End Sub

13. Дан массив h(6). Заполнить массив случайными числами. Найти среднее арифметическое элементов массива с четными индексами и заменить им последний элемент массива.

Sub olol()

Dim h(6), i, Str_h, str_hnew, sum, k, buf, sa As Integer

sum = 0

For i = 0 To 5

h(i) = Int(Rnd * 100 + 1)

Str_h = Str_h & h(i) & " "

If i Mod 2 = 0 Then k = k + 1: sum = sum + h(i)

sa = sum / k

Next i

For i = 0 To 5

buf = h(5)

h(5) = sa

str_hnew = str_hnew & h(i) & " "

Next i

MsgBox "Исходный массив: " & Str_h & Chr(10) & Chr(13) & _

"Среднее арифметическое = " & sa & Chr(10) & Chr(13) & _

"Полученный массив: " & str_hnew

End Sub

14. Дан массив p(11). Заполнить массив случайными числами. Найти среднее арифметическое четных элементов массива, вывести массив на экран.

Sub olol()

Dim p(11), sum, k, sa As Integer, S as String

sum = 0

For i = 0 To 10

p(i) = Int(Rnd * 100 + 1)

If p(i) Mod 2 = 0 Then k = k + 1: sum = sum + p(i)

sa = sum / k

S = S & p(i) & “ “

Next i

MsgBox "Массив: " & S & Chr(10) & Chr(13) & _

"Среднее арифметическое = " & sa

End Sub

15. Дан массив h(9). Заполнить массив случайными числами. Найти сумму нечетных элементов массива, значение которых больше 40 и заменить ею второй элемент массива. Вывести массив на экран.

Sub olol()

Dim h(9), i, Str_h, str_hnew, sum, buf

sum = 0

For i = 0 To 8

h(i) = Int(Rnd * 100 + 1)

Str_h = Str_h & h(i) & " "

If h(i) Mod 2 <> 0 and h(i) > 40 Then sum = sum + h(i)

Next i

For I = 0 To 8

Buf = h(1)

h(1) = sum

str_hnew = str_hnew & h(i) & " "

Next i

MsgBox "Исходный массив: " & Str_h & Chr(10) & Chr(13) & _

“Сумма нечетных элементов > 40 = " & sum & Chr(10) & Chr(13) & _

"Полученный массив: " & str_hnew

End Sub

16. Дан массив g(6). Заполнить массив случайными значениями. Найти произведение нечетных элементов массива и заменить этим произведением третий элемент массива, вывести массив на экран.

Sub olol()

Dim g(6), i, pr, str_g, str_gnew, buf

Pr = 1

For i = 0 To 5

g(i) = Int(Rnd*10+1) ‘ Если брать int(rnd*100)+1, то получаются огромные числа с экспонентой, поэтому на 10 умножила

str_g= str_g & g(i) & “ “

If g(i) Mod 2 <> 0 Then pr = pr*g(i)

Next i

For I = 0 To 6

Buf = g(2)

g(2) = pr

Str_gnew = str_gnew & g(i) & “ “

Next I

Msgbox “Исходный массив: ” & str_g & Chr(10) & Chr(13) & _

“Произведение = ” & pr & Chr(10) & Chr(13) & _

“Полученный массив : ” & str_gnew

End Sub

17. Дан массив h(5). Заполнить массив случайными значениями. Найти сумму нечетных элементов массива, больших 50 и заменить ею последний элемент массива. Вывести блабла

Sub olol()

Dim h(5), i, Str_h, str_hnew, sum, buf

sum = 0

For i = 0 To 4

h(i) = Int(Rnd * 100 + 1)

Str_h = Str_h & h(i) & " "

If h(i) Mod 2 <> 0 and h(i) > 50 Then sum = sum + h(i)

Next i

For I = 0 To 4

Buf = h(4)

h(4) = sum

str_hnew = str_hnew & h(i) & " "

Next i

MsgBox "Исходный массив: " & Str_h & Chr(10) & Chr(13) & _

“Сумма нечетных элементов > 50 = " & sum & Chr(10) & Chr(13) & _

"Полученный массив: " & str_hnew

End Sub