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

Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
Дима
проходил мимо

В заданном массиве 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

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг 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/