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