{* Задача378 *}

REM basic

' Нахождение суммы минимального и максимального из 5 чисел


CLS: n = 5: Dim a(n)
For i = 1 To n
    PRINT "vvedite"; i; "element";
    INPUT a(i)
Next
min = a(1): max = a(1)
For i = 1 To n
    If a(i) > max Then max = a(i)
    If a(i) < min Then min = a(i)
Next
PRINT min + max
End