
Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:V_RV_RV_R_1_2.docx
X
- •1. Дан массив p(11). Заполнить массив случайными значениями. Найти сумму четных элементов массива и заменить ею максимальный элемент массива, вывести массив на экран.
- •2. Дан массив h(9). Заполнить массив случайными числами. Найти сумму нечетных элементов массива и заменить ею первый элемент массива, вывести массив на экран.
- •3. Дан массив g(7). Заполнить массив случайными числами. Найти произведение нечетных элементов массива и заменить этим произведением минимальный элемент массива, вывести массив на экран.
- •4. Дан массив h(5). Заполнить массив случайными значениями. Найти сумму нечетных элементов массива и заменить ею последний элемент массива, вывести массив на экран.
- •12. Дан массив h(6). Заполнить массив случайными значениями. Найти среднее геометрическое элементов массива, вывести массив на экран
- •13. Дан массив h(6). Заполнить массив случайными числами. Найти среднее арифметическое элементов массива с четными индексами и заменить им последний элемент массива.
- •14. Дан массив p(11). Заполнить массив случайными числами. Найти среднее арифметическое четных элементов массива, вывести массив на экран.
- •15. Дан массив h(9). Заполнить массив случайными числами. Найти сумму нечетных элементов массива, значение которых больше 40 и заменить ею второй элемент массива. Вывести массив на экран.
- •16. Дан массив g(6). Заполнить массив случайными значениями. Найти произведение нечетных элементов массива и заменить этим произведением третий элемент массива, вывести массив на экран.
- •17. Дан массив h(5). Заполнить массив случайными значениями. Найти сумму нечетных элементов массива, больших 50 и заменить ею последний элемент массива. Вывести блабла
- •18. Дан массив h(6). Заполнить массив случайными числами. Найти сумму элементов массива с четными индексами, и меньших 40. Вывести массив на экран.
- •19. Дан массив h(8). Заполнить массив случайными числами. Найти сумму элементов массива с нечетными индексами и больших 40. Вывести массив на экран
18. Дан массив h(6). Заполнить массив случайными числами. Найти сумму элементов массива с четными индексами, и меньших 40. Вывести массив на экран.
Sub olol()
Dim h(6), i, sum, S as String
sum = 0
For i = 0 To 4
h(i) = Int(Rnd * 100 + 1)
If i Mod 2 = 0 and h(i) < 40 Then sum = sum + h(i)
S = S & h(i) & “ “
Next i
MsgBox "Массив: " & S & Chr(10) & Chr(13) & _
“Сумма элементов с четн индексами < 40 = " & sum
End Sub
19. Дан массив h(8). Заполнить массив случайными числами. Найти сумму элементов массива с нечетными индексами и больших 40. Вывести массив на экран
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 and h(i) > 40 Then sum = sum + h(i)
S = S & h(i) & “ “
Next i
MsgBox "Массив: " & S & Chr(10) & Chr(13) & _
“Сумма элементов с нечет индексами > 40 = " & sum
End Sub
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]