Найти 2 минимальных элемента массива

@Александрес · Регистрация: 17.11.2009

Студворк — интернет-сервис помощи студентам

помогите пожалуйста...
в VB дан массив с от 0 до 10
нужно вывести массив в произвольном порядке
и найти 2 минимальных элемента этого массива

@Abu · 18.11.2009, 01:55

Сообщение от Александрес

в VB дан массив с от 0 до 10

Не совсем понятно, это массив с числами от 0 до 10? Если да, то

Сообщение от Александрес

и найти 2 минимальных элемента этого массива

полюбасу будут 0 и 1.

Если это

Сообщение от Александрес

от 0 до 10

всё-таки количество элементов в массиве, то тада примерно как-то так:
Создаём массив и заполняем его случайными числами

Visual Basic
1
2
3
4
5
6
7
8
Dim sourceArray(10) As Integer
Dim tmp As Integer
Dim min1, min2 As Integer
Dim i As Integer, pos As Integer
Randomize
For i = 0 To 10
    sourceArray(i) = Int(Rnd * 200 - 100)
Next i

Перемешиваем, чтоб вывести в произвольном порядке

Visual Basic
1
2
3
4
5
6
For i = 0 To 10
    pos = Int(Rnd * 11)
    tmp = sourceArray(i)
    sourceArray(i) = sourceArray(pos)
    sourceArray(pos) = tmp
Next i

Ищем самый маленький элемент в массиве

Visual Basic
1
2
3
4
min1 = sourceArray(0)
For i = 0 To 10
    If sourceArray(i) < min1 Then min1 = sourceArray(i)
Next i

Ищем самый маленький элемент в массиве, который больше самого маленького элемента в массиве и меньше всех остальных.

Visual Basic
1
2
3
4
min2 = Abs(sourceArray(0)) + Abs(sourceArray(1))
For i = 0 To 10
    If (sourceArray(i) > min1) And (sourceArray(i) < min2) Then min2 = sourceArray(i)
Next i

@BasicMan · 18.11.2009, 10:09

Сообщение от Abu

Ищем самый маленький элемент в массиве, который больше самого маленького элемента в массиве и меньше всех остальных

а если там 2 одинаковых минимальных элемента? эт маловероятно, но возможно.
надо искать самый маленький, но с индексом отличным от 1го минимального

@Александрес · 23.11.2009, 16:38 **[ТС]**

Спасибо, только у меня походу ничего не работает

Добавлено через 5 минут
можно как-то это сделать через функцию FindMinimum???

@Toxa33rus · 23.11.2009, 18:38

Сообщение от Александрес

можно как-то это сделать через функцию FindMinimum?

конечно можно. Только эту функцию сначала надо будет написать

Сообщение от Александрес

у меня походу ничего не работает

может вилку забыли в розетку воткнуть?

@Александрес · 23.11.2009, 23:37 **[ТС]**

Да нее) всовывать все что нужно я не забываю вроде

@BasicMan · 23.11.2009, 23:39

Александрес, а какая у тя версия басика?

@Александрес · 24.11.2009, 20:05 **[ТС]**

Сообщение от CyberБурундукЪ

Александрес, а какая у тя версия басика?

хм) та которая через макросы в 2007 офисе)))))))

@BasicMan · 24.11.2009, 20:14

ага, знач как запустить макросы ты знаешь
ну у меня получилось zadachaX.zip
хмм..

странно
и даж работает...
и значения рандомные выдает

более чем странно
хм....
ааа. ты наверное руки не мыл. обычно когда люди тщательно руки моют, они размышляют
а ты наверное их не мыл. вот ничего и не получилось

@Александрес · 24.11.2009, 20:24 **[ТС]**

ну да) выдает... только я наблюдаю значения в минусе и числа огого какие... а массив та от 0 до 10

@Александрес · 24.11.2009, 20:26 **[ТС]**

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

@кот Бегемот · 27.11.2009, 01:04

Отсортируй массив по возрастанию и напечатай 2 первых элемента. Вот и вся задача

Новые блоги и статьи Все статьи Все блоги /
Программный отбор значения справочника Maks 21.03.2026 Процедура ВодителиНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка) / / Отключаем стандартную обработку (стандартное открытие формы выбора без фильтров) . . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:

@Александрес 0 / 0 / 0 Регистрация: 17.11.2009 Сообщений: 6

	Найти 2 минимальных элемента массива 17.11.2009, 18:58. Показов 6181. Ответов 11 Метки нет (Все метки) помогите пожалуйста... в VB дан массив с от 0 до 10 нужно вывести массив в произвольном порядке и найти 2 минимальных элемента этого массива 0

@Александрес 0 / 0 / 0 Регистрация: 17.11.2009 Сообщений: 6
	23.11.2009, 16:38 [ТС]
	Спасибо, только у меня походу ничего не работает Добавлено через 5 минут можно как-то это сделать через функцию FindMinimum??? 0

@Александрес 0 / 0 / 0 Регистрация: 17.11.2009 Сообщений: 6
	23.11.2009, 23:37 [ТС]
	Да нее) всовывать все что нужно я не забываю вроде 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	23.11.2009, 23:39
	Александрес, а какая у тя версия басика? 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	24.11.2009, 20:14
	ага, знач как запустить макросы ты знаешь ну у меня получилось zadachaX.zip хмм.. странно и даж работает... и значения рандомные выдает более чем странно хм.... ааа. ты наверное руки не мыл. обычно когда люди тщательно руки моют, они размышляют а ты наверное их не мыл. вот ничего и не получилось 0

@Александрес 0 / 0 / 0 Регистрация: 17.11.2009 Сообщений: 6
	24.11.2009, 20:24 [ТС]
	ну да) выдает... только я наблюдаю значения в минусе и числа огого какие... а массив та от 0 до 10 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	27.11.2009, 01:04
	Отсортируй массив по возрастанию и напечатай 2 первых элемента. Вот и вся задача 0