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
<span>0) 5<u>4</u>3<u>2</u>61
1) <u>5</u>2346<u>1</u>
2) 1234<u>65</u>
3) 123456
3 перестановки
</span>
Ответ А будет лишним, остальные варианты это пакет office от ms
Ближе всего ответ 2), хотя в реальной жизни все не настолько однозначно.
А) Пенал, тетрадь, учебник.
Б) Папка "Службы", Папка "Игры", Корзина.
В) Диск, Флеш-карта, дискета.
Г) Растения, животные, клетки.
Д) Уравнения, числа, примеры.
Е) Карты, масштабы, мореплаватели.
Ж)Алгоритмы, схемы, данные.