Консультация № 198449
03.05.2020, 13:09
0.00 руб.
03.05.2020, 20:44
0 2 1
Здравствуйте! У меня возникли сложности с таким вопросом:
В диапазоне ячеек А1:А20 задать массив из целых чисел(от -10 до 9 ), и написать к ней процедуру, которая вычислит сумму четных и нечетных элементов заданного массива. Результат расположить произвольно.

Обсуждение

давно
Модератор
137394
1850
03.05.2020, 20:27
общий
это ответ
Здравствуйте, Ульяна!
Код:
Function iSum_Even_Odd(All As Range, Flag As Integer) As Long
' Сумма четных (Flag=1) или нечетных (Flag=2) целых чисел диапазона ячеек (All)
iSum_Even_Odd = 0
For Each iAll In All
If Int(iAll) = iAll Then
If iAll Mod 2 = 0 And Flag = 1 Then iSum_Even_Odd = iSum_Even_Odd + iAll
If iAll Mod 2 <> 0 And Flag = 2 Then iSum_Even_Odd = iSum_Even_Odd + iAll
End If
Next
End Function




Таблица с решением ya200503.xlsm (13.7 кб)
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
давно
Модератор
137394
1850
03.05.2020, 20:30
общий
ИМХО это вопрос в тему [b]"Пакет MSOffice"[/b]
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Форма ответа