Dim i As Integer, n As Integer, k_chetn As Integer. Dim k_nechet As Integer

Dim k_nechet As Integer

Dim str1 As String, str2 As String, str3 As String

Dim a() As Single, b() As Single, c() As Single

n = InputBox ("Введите размер массива", "Запрос 1 из 1")

ReDim a(n): ReDim b(n): ReDim c(n)

str1 = "": str2 = "": str3 = ""

'заполнение исходного массива случайными числами

For i = 1 To n

a(i) = Int (Rnd () * 100)

str1 = str1 & a(i) & Chr (9)

Next i

'обнуление счетчиков

k_chet = 0: k_nechet = 0

'разделение исходного массива

For i = 1 To n

'определение четности элемента

If a(i) / 2 = a(i) \ 2 Then

'запись элементов с четными индексами в массив b

k_chet = k_chet + 1

b(k_chet) = a(i)

str2 = str2 & b(k_chet) & Chr (9)

Else

'запись элементов с нечетными индексами в массив с

k_nechet = k_nechet + 1

c(k_nechet) = a(i)

str3 = str3 & c(k_nechet) & Chr (9)

End If

Next i

'Команда MsgBox... записывается в редакторе VB в одну строку

MsgBox "Исходный массив:" & Chr (13) & str1 & Chr (13) & Chr (13) & "Массив с четными индексами:" & Chr (13) & str2 & Chr (13) & Chr (13) & "Массив с нечетными индексами:" & Chr (13) & str3,, "Ответ"

End Sub

Результат выполнения программы:

Пример 6. Заполнить массив А нечетными членами натурального ряда (1, 3, 5...) до тех пор, пока их произведение не станет больше произвольного числа М. Найти сумму элементов массива и их число.

Sub primer_6()

Dim a() As Integer

Dim m As Long

m = InputBox ("Введите целое положительное число m>>1")

Не нашли, что искали? Воспользуйтесь поиском: