Question

СРОЧНО!!! Задана последовательность целых чисел. Числа нумеруются по порядку следования, начиная с единицы. Требуется написать программу, которая найдет сумму максимума из чисел с четными номерами и минимума из чисел с нечетными номерами – max{a2, a4, …}+min{a1, a3, …}.

Answer 1

Function func32707155(a As Range) As Integer

Dim i, j, odd_num, even_num, min_max(2) As Integer, r As Range

odd_num = Cells(a.Row, a.Column)

even_num = Cells(a.Row + Sgn(a.Rows.Count - 1), a.Column + Sgn(a.Columns.Count - 1))

j = 0

For Each r In a

j = j + 1

i = j Mod 2

min_max(i) = i * Application.max(odd_num, r) + (1 - i) * Application.min(even_num, r)

Next

func32707155 = min_max(1) + min_max(0)

End Function

Excel VBA