Min и Max

[Kveld]

Вот, понимаешь, налетел на неожиданные грабли - никак не могу сообразить как расчитать min среди элементов одномерного массива, то есть мне дан одномерный массив и надо найти минимальный среди его элементов. Всё просто, но чего-то сообразить ничего не могу.
Заранее спасибо за любое содействие

[A.A.Z.]

Можно методом пузырька.

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

Const N = 10 'Сколько элементов

Sub Procedure()

Dim Arr(1 To N) As Long 'Массив
Dim Num As Long 'Для случайных чисел
Dim I As Long 'Счетчик
Dim Max As Long, Min As Long 'Два числа
Dim Str As String 'Для вывода информации

Randomize 'Разбросаем случайные числа

For I = 1 To N
Num = Round(Rnd * 100) 'Заполняем массив случайными числами от 0 до 100
Arr(I) = Num
Next

'========НАЧИНАЕТСЯ СУТЬ ПУЗЫРЬКА========
'Сначала, самый первый элемент является самым большим и самым маленьким
Min = Arr(1)
Max = Arr(1)

'Выявляем самый большой и самый маленький
For I = 2 To N
If Min > Arr(I) Then Min = Arr(I)
If Max < Arr(I) Then Max = Arr(I)
Next
'========СУТЬ ПУЗЫРЬКА ЗАКОНЧИЛАСЬ========

'Выводим информацию
For I = 1 To N
Str = Str & I & " = " & Arr(I) & vbCrLf
Next
Str = Str & vbCrLf & "Max = " & Max & vbCrLf & "Min = " & Min
MsgBox Str, vbInformation, "Массив"

End Sub

Private Sub Form_Load()
Procedure
End Sub

[EvilCoder]

<DELETE>

[Oxygen]

По-моему, EvilCoder ошибается. Как я поняла, нужно просто найти наименьший элемент массива, а не наименьший индекс. А LBound(Array), насколько мне известно, находит именно наименьший индекс. И пример A.A.Z. здесь наиболее уместен.

[EvilCoder]

<DELETE>

[corgi]

гы! а я всегда думал что метод пузырька это сортировка

[hCORe]

Пузырьковым методом можно обрабатывать все что угодно в массиве. В том числе и сортировать данные

[Шурик]

offtop sorry......
все дело в волшебных пузырьках

[Tauron]

Метод пузырька это сортировка и только сортировка. Что значит "обрабатывать все что угодно" вообще непонятно. Для того, чтобы найти минимум сортировать массив не нужно. Это пустая трата времени.

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

Function getMin(A() as Long) as Long
Dim I As Integer
getMin=A(LBound(A))
For I=LBound(A) to UBound(A)
If A(I)<getMin Then
    getMin=A(I)
End If
Next
End Function


[hCORe]

Tauron:
приглядись, ты тоже обрабатываешь массив, чтобы получить минимальное или максимальное число.
А под "обрабатывать все что угодно" подразумевалось то, что с отсортированными данными легче работать, чем с "сырыми". Так что сортировка пузырьком бывает полезна не только при сортировке.

Z-zzz:
Короче, все покупаем 20 пачек "Виспы" и уходим в краткосрочный отгул