Дан одномерный массив целых чисел. Проверить, упорядочены ли элементы по возростанию - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
