Работа с массивами (Basic)

[lizka_dro]

Пытаюсь понять логику решения подобных заданий:
"Дан целочисленный массив из 30 элементов. Изменить массив таким образом, чтобы все элементы массива стоящие до максимального элемента этого массива были бы отсортированы по возрастанию, а элементы, стоящие после него - по убыванию"
Это пример вступительного испытания в ИТМО.

Объясните дурочке, что с этим делать и куда идти читать.
Если я все правильно поняла, то это задание на сортировку, так?

PS
если в создании темы есть ошибки, укажите мне на них, пожалуйста. Я исправлю.

[RUSt88]

привет, пиши, помогу )))

[Stilet]

Вот пример сортировки на бейсике
http://hosting.ulstu.ru/ip/sort_b.html
В твоем случае его нужно применить дважды
1)
FOR j= 1 TO k/2
FOR i = 1 TO k/2

2)
FOR j= к/2 TO k
FOR i = к/2 TO k
... и в условии обратное: IF M(i) < M(i + 1)

[KobolD]

Sub main()

Const Length = 29
Dim Massiv(Length) As Integer
Dim Max As Integer
Dim iMax As Byte
Dim i, j As Byte

'Заполняем массив
For i = 0 To Length 'Заполняем массив
    Massiv(i) = Rnd() * 30000
Next i

'Определяем максимальный элемент массива
Max = Massiv(0)
iMax = 0
For i = 1 To Length
    If Max < Massiv(i) Then
        Max = Massiv(i)
        iMax = i
    End If
Next i
'в переменной iMax находится индекс максимального элемента

'Сортируем левую часть массива по возрастанию
For j = 0 To iMax - 1
    For i = 0 To iMax - 1
    If Massiv(i) > Massiv(i + 1) Then
        Max = Massiv(i)
        Massiv(i) = Massiv(i + 1)
        Massiv(i + 1) = Max
    End If
    Next i
Next j

'Сортируем правую часть массива по убыванию
For j = iMax + 1 To Length - 1
    For i = iMax + 1 To Length - 1
    If Massiv(i) < Massiv(i + 1) Then
        Max = Massiv(i)
        Massiv(i) = Massiv(i + 1)
        Massiv(i + 1) = Max
    End If
    Next i
Next j

End Sub

[kogemrka]

Ого! Это такие вступительные испытания в ИТМО? Тот самый вуз, готовящий чемпионов по ACM? Занятно.
Оффтоп: В этом году поступаешь или в следующем?