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

Sub olol()

Dim p(11), max, i, sum, str_p, str_pnew

Sum = 0

For i = 0 To 10

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

str_p= str_p & p(i) & “ “

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

Next i

max = p(0) : imax = o

For I = 1 To 10

If p(i) > max Then max = p(i) : imax = i

Next i

Sum = p(imax)

For I = 0 To 10

Str_pnew = str_pnew & p(i) & “ “

Next I

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

“Сумма = ” & sum & Chr(10) & Chr(13) & _

“Max = ” & max & “ “ & “imax = ” & imax & Chr(10) & Chr(13) & _

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

End Sub

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

Sub olol()

Dim h(9), i, sum, str_h, str_hnew, 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 Then sum = sum + h(i)

Next i

buf = h(0)

h(0) = sum

sum = buf

For I = 0 To 8

Str_hnew = str_hnew & h(i) & “ “

Next i

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

“Сумма = ” & sum & Chr(10) & Chr (13) & _

“Получившийся массив: ” & str_hnew

End Sub

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

Sub olol()

Dim g(7), max, i, pr, str_g, str_gnew

Pr = 1

For i = 0 To 6

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

str_g= str_g & g(i) & “ “

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

Next i

min = g(0) : min = o

For I = 1 To 6

If g(i) < min Then min = g(i) : imin = i

Next i

pr = g(imin)

For I = 0 To 6

Str_gnew = str_gnew & g(i) & “ “

Next I

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

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

“Min = ” & min & “ “ & “imin = ” & imin & Chr(10) & Chr(13) & _

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

End Sub

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

Sub olol()

Dim h(5), i, sum, str_h, str_hnew, 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 Then sum = sum + h(i)

Next i

buf = h(0)

h(0) = sum

sum = buf

For I = 0 To 5

Str_hnew = str_hnew & h(i) & “ “

Next i

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

“Сумма = ” & sum & Chr(10) & Chr (13) & _

“Получившийся массив: ” & str_hnew

End Sub

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

Sub olol()

Dim h(6), i, sum, S as String

Sum = 0

For i = 0 To 5

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

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

S = S & h(i) & “ “

Next i

Msgbox “Массив: ” & S & Chr(10) & Chr(13) & “Сумма = ” & sum

End Sub

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

Sub olol()

Dim h(8), i, sum, S as String

Sum = 0

For i = 0 To 7

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

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

S = S & str(h(i)) & “ “

Next i

Msgbox “Массив: ” & S & Chr(10) & Chr(13) & “Сумма = ” & sum

End Sub

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

Sub olol()

Dim h(6), i, sum, str_h, str_hnew, buf

For i = 0 To 5

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

str_h = str_h & h(i) & “ “

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

Next i

buf = h(0)

h(0) = sum

sum = buf

For I = 0 To 5

Str_hnew = str_hnew & h(i) & “ “

Next i

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

“Сумма = ” & sum & Chr(10) & Chr (13) & _

“Получившийся массив: ” & str_hnew

End Sub

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

Sub olol()

Dim h(7), i, sum1, sum2, S as String

Sum1 = 0

Sum2 = 0

For i = 0 To 6

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

If h(i) Mod 2 = 0 Then sum1 = sum1 + h(i)

If h(i) Mod 2 <> 0 Then sum2 = sum2 + h(i)

S = S & str(h(i)) & “ “

Next i

Msgbox “Массив: ” & S & Chr(10) & Chr(13) & _

“Сумма четных элементов = ” & sum1 & Chr(10) & Chr(13)& _

“Сумма нечетных элементов = ”& sum2

End Sub

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

Sub olol()

Dim h(7), i, pr1, pr2, S as String

pr1 = 1

pr2 = 1

For i = 0 To 6

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

If h(i) Mod 2 = 0 Then pr1 = pr1*h(i)

If h(i) Mod 2 <> 0 Then pr2 = pr2*h(i)

S = S & str(h(i)) & “ “

Next i

Msgbox “Массив: ” & S & Chr(10) & Chr(13) & _

“Произведение четных элементов = ” & pr1 & Chr(10) & Chr(13)& _

“Произведение нечетных элементов = ”& pr2

End Sub

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

Sub olol()

Dim h(6), i, pr, str_h, str_hnew, buf

Pr = 1

For i = 0 To 5

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

str_h = str_h & h(i) & “ “

If i Mod 2 = 0 Then pr = pr*h(i)

Next i

buf = h(0)

h(0) = pr

For I = 0 To 5

Str_hnew = str_hnew & h(i) & “ “

Next i

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

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

“Получившийся массив: ” & str_hnew

End Sub

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

Sub olol()

Dim h(6), i, sum, S as String

sum = 0

For i = 0 To 5

h(i) = Int(Rnd*10+1) ‘ 10 а не 100 это не опечатка. Если поставить Rnd*100+1 разброс чисел будет от 0 и до 100. Чаще всего это генерируются числа в диапазоне 46-80 т.е. получить число от 0 до 6 крайне затруднительно.

If h(i) >= 0 And h(i) <= 6 Then sum = sum + h(i)

S = S & h(i) & “ “

Next i

Msgbox “Массив: ” & S & Chr(10) & Chr(13) & _

“Сумма = ” & sum

End Sub