Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
V_RV_RV_R_1_2.docx
Скачиваний:
0
Добавлен:
01.03.2025
Размер:
26.91 Кб
Скачать

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

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]