Как узнать, упорядочен ли массив - VB

Формулировка задачи:

Написать фрагмент программы для решения следующей задачи: переменной t присвоить значение true, если элементы массива Х упорядочены строго по возрастанию, и значение false иначе.

Решение задачи: «Как узнать, упорядочен ли массив»

textual
                            Листинг программы 
                        

                            Function CkhSeq(A() as integer) As Boolean
   For i%=2 to Ubound(A,1)
        if A(i%) <= A(i%-1) then
           ChkSeq=False
           Exit Sub
        End if 
   Next i%
   ChkSeq=True
End Function
                        

Оцени полезность:

7 голосов , оценка 4 из 5

Похожие ответы