Сумма максималиного и мнимального элементов

[Лапочка]

Написать программу нахождения суммы большего и меньшего из 3 чисел

[EducatedFool]

Ну и?
Причем тут Microsoft Office Excel?

А если надо сделать в Excel, то чем не устраивают формулы:
=МИН(A1:A3) и =МАКС(A1:A3)

[Лапочка]

Я не знаю как это сделать. Если знаешь помоги, плиз.

[EducatedFool]

Сделать что?

Введи числа в ячейки с A1 по A3.

1) Решение формулами:

  Ячейка: A4      Формула  (стиль A1):   =МИН($A$1:$A$3)+МАКС($A$1:$A$3)
                  Формула  (стиль R1C1): =МИН(R1C1:R3C1)+МАКС(R1C1:R3C1)

2) Решение макросами:

Sub СложнейшаяПрограмма()
    Dim Диапазон As Range: Set Диапазон = [a1:a3]
    Результат = WorksheetFunction.Min(Диапазон) + WorksheetFunction.Max(Диапазон)
    MsgBox Результат, vbInformation
End Sub

[Konstantin_Z]

Да, суперзадача, согласен! ))