Дан одномерный массив целых чисел. Проверить, упорядочены ли элементы по возростанию - VB

Узнай цену своей работы

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

Помогите плз решить

Решение задачи: «Дан одномерный массив целых чисел. Проверить, упорядочены ли элементы по возростанию»

textual
Листинг программы
Private Sub Command1_Click()
    Dim A, i As Integer
    A = Array(2, 3, 4, 5, 6, 7, 8, 9, 9)
    For i = 1 To UBound(A)
         If A(i) < A(i - 1) Then MsgBox "Массив не упорядочен по возрастанию": Exit Sub
    Next i
    MsgBox "Массив упорядочен по возрастанию"
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

6   голосов , оценка 4.167 из 5
Похожие ответы