В заданном массиве J(10) поместите первые пять элементов во возрастающем порядке, а остальные пять в порядке убывани

[Дима]

Код я написал но есть ошибки. Пожалуйста помогите))

Код: Выделить всё

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

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Alex Keda]

и, какие ошибки-то? )