hа координатной прямой закрашены четыре отрезка, у которых координаты левых и правых концов равны li и рi, где і -номер отрезка. составьте программу нахождения длины закрашенной части прямой.
например:
входные данные: [1,2], [3,4], [5,6], [7,8]
выходные данные: 4
входные данные: [1,3], [2,3], [5,7], [6,7]
выходные данные: 4​

Выделите на листе прямоугольную область ячеек с левым верхним углов в A1 и запустите программу, которая в каждой строке выделенной области обменяет местами содержимое ячеек с минимальным и максимальным значениями.

Sub abc()
    a = Selection.Value
    For i = 1 To UBound(a, 1)
        aMin = a(i, 1): aMax = aMin
        jMin = 1: jMax = 1
        For j = 2 To UBound(a, 2)
            If aMin > a(i, j) Then
                aMin = a(i, j): jMin = j
            End If
            If aMax < a(i, j) Then
                aMax = a(i, j): jMax = j
            End If
        Next j
        Cells(i, jMin).Value = aMax
        Cells(i, jMax).Value = aMin
    Next i
End Sub

При работе с Панелью форматирования выравнивание осуществляется с расположенных на ней кнопок. Одинарный, по­луторный и двойной межстрочные интервалы также можно установить с кнопок, предварительно настроив Панельформатирования. Другие межстрочные интервалы можно установить только с диалогового окна. Отступы абзаца и первая строка устанавливаются с Горизонтальной координатной линейки (рис. 14); при этом верхняя метка указывает начало первой (красной) строки, а нижние — ширину абзаца.Чтобы форматирование абзаца происходило в процессе его ввода, следует задать необходимые параметры, а уже затем вводить текст.Для форматирования нескольких расположенных друг за другом абзацев их необходимо предварительно выделить. При форма­тировании одного абзаца достаточно установить курсор в любом месте этого абзаца.