В заданном массиве J(10) поместите первые пять элементов во возрастающем порядке, а остальные пять в порядке убывани
Добавлено: 2021-12-16 11:39:22
Код я написал но есть ошибки. Пожалуйста помогите))
Код: Выделить всё
Private Sub SumButton1_Click()
Const n% = 10
Dim Sum As Single
Dim J(1 To n%) As Single
Debug.Print " Заданный массив J"
For i% = 1 To n%
Title$ = "Введите элемент массива J"
Prt$ = "элемент J(" & i% & ")"
J(i%) = Val(InputBox(Prt$, Title$))
Debug.Print J(i%); " ";
Next i%
Debug.Print
Debug.Print " Массив по возрастанию"
For i% = 1 To 5
If arr(J) < Min Then Debug.Print J(i%); " ";
Next i%
Debug.Print
Debug.Print " Массив по убыванию"
For i% = 5 To 10
If arr(J) < Max Then Debug.Print J(i%); " ";
Next i%
Debug.Print
End Sub