Найти количество четных элементов последовательности целых чисел

@razorini · Регистрация: 05.12.2012

Author24 — интернет-сервис помощи студентам

Прошу помощи. Давно позабыл все чему учили в универе

Дана последовательность из n целых чисел. Найти количество четных элементов этой последовательности. На VBA, пожалуйста.

@anvg · 06.12.2012, 03:38

Visual Basic

Public Sub CountEven()
    Dim vArr() As Variant
    Dim i As Long, vCount As Long
    vArr = Array(1, 3, 5, 6, 4, 2, 7, 12, 23, 21)
    vCount = 0
    For i = LBound(vArr) To UBound(vArr)
        If (vArr(i) Mod 2) = 0 Then vCount = vCount + 1
    Next i
    Debug.Print vCount
End Sub

@razorini · 06.12.2012, 23:34 **[ТС]**

Вай, спасибо!

А если еще комментарии напишите, я буду безмерно благодарен!

Добавлено через 14 часов 4 минуты

Разобрался, уже не надо) Спасибо)

@razorini 1 / 1 / 0 Регистрация: 05.12.2012 Сообщений: 21
		1
	Найти количество четных элементов последовательности целых чисел 05.12.2012, 22:33. Показов 1689. Ответов 2 Метки нет (Все метки) Прошу помощи. Давно позабыл все чему учили в универе Дана последовательность из n целых чисел. Найти количество четных элементов этой последовательности. На VBA, пожалуйста. 0

@razorini 1 / 1 / 0 Регистрация: 05.12.2012 Сообщений: 21
	06.12.2012, 23:34 [ТС]	3
	Вай, спасибо! А если еще комментарии напишите, я буду безмерно благодарен! Добавлено через 14 часов 4 минуты Разобрался, уже не надо) Спасибо) 0