bzadach61.BAS

{* Задача61 *}

REM basic

' Сформировать вектор V(20). Определить количество элементов, образующих самую
' длинную, упорядоченную по возрастанию (1) (убыванию (2)), последовательность.


CLS

n = 20
Dim V(n + 1), M(n, 2)
RANDOMIZE TIMER
        
For i = 1 To n
        V(i) = CInt(RND * 9)
        PRINT V(i);
Next i: PRINT
               
                For i = 1 To n
        If V(i)  max Then max = M(i, 2): StMax = i
Next i

PRINT "Номер первого"; M(StMax, 1); "Всего в цепочке"; M(StMax, 2)
       
        PRINT "Максимальная последовательность "
For i = M(StMax, 1) To M(StMax, 1) + M(StMax, 2) - 1
        PRINT V(i);
Next i

End