{* Задача122 *}

REM basic

' Найти максимальный и минимальный элемент в массиве. Напечатать элементы между максимальным и минимальным элементом.


CLS
INPUT "vvedite n"; n
Dim a(n)
For i = 1 To n
    PRINT "vvedite"; i; "element";
    INPUT a(i)
Next
For i = 1 To n
    PRINT a(i);
Next
min = a(1): max = a(1)
For i = 1 To n
    If a(i) = max Then max = a(i): k2 = i
Next
PRINT String$(80, 196); "min="; min, "max="; max; String$(80, 196)
If k1 > k2 Then SWAP k1, k2
For i = k1 + 1 To k2 - 1
    PRINT a(i);
Next
End