Дан одномерный массив заполненный случайным образом десятью целыми в диапазоне от 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
Не понятно же
что не понятного?
А можешь это сразу в паскале написать, потом файлик скинуть мне. Если не трудно. Спасибо заранее