Дан одномерный массив заполненный случайным образом десятью целыми в диапазоне от 0 до 100. заполенный массив вывести на экран. найти самую длинную последовательность чисел упорядочную по возрастанию. вывести на экран эту последовательность и её длину.

CLSINPUT nDIM A(n)FOR i = 1 TO n  A(i) = INT(RND * 100)NEXT iFOR i = 1 TO n  FOR j = 1 TO n    IF A(i) < A(j) THEN SWAP A(i), A(j)  NEXT jNEXT iFOR i = 1 TO n  PRINT A(i)NEXT i