17 FreeBASIC - Поиск минимального элемента

Можно сказать классическая задача из темы массивов - поиск максимального(минимального) элементов. Но сегодня обнаружил для себя более интересную задачу, которую рассмотрю немного позже. А сейчас найдем минимальный элемент в массиве.

dim as integer a(1 to 25)
dim as integer i,min

for i =1 to 25
a(i)=int(rnd()*100)+1
next i

for i =1 to 25
print a(i);
next i

print

теперь у нас есть массив с целыми числами, как в нём найти минимальный, наименьший по значению?

Припоминаю как решал её я((

min = 1000000
for i=1 to 25
if a(i)<min then min=a(i)
next i

print "min=";min
sleep

но почему min = 1000000? в данном случае тоработать оно будет, как и во многих других. Но что есль значения в массиве будут числа порядка 2000000, 4000000,.... тогда мы не найдём наименьший - ведь min = 1000000 и есть меньше всех, а в массиве меньшего не найти. Можно задать min = 100000000, т.е. ещё большим, чтоб в массиве было заведомо меньшие значения....

Но зачем min придавать то значение которого в массиве нет, ведь можно взять любое значение из массива... обычно берут первый элемент массива a(0), в этом примере я начал нумерацию элементов массива с 1, поэтому а(1) , но не забывайте - в компьютере все начинается с нуля)))

Часто с поиском минимального значения ищут и его индекс.

Для этого достаточно ввести дополнительную переменную - imin

Ну а теперь о той задаче что я упомянул ранее ...

найти два наименьших элемента в массиве.

Первое решение что приходит - найти минимальный элемент, а потом, просмотрев массив ещё раз, найти очередной наименьший элемент с учётом уже найденного. Т.е. массив мы будем просматривать дважды... А нельзя ли сделать это за один проход, и искать сразу два наименьших элемента? Это как говорится "задача на засыпку", учитесь, тренируйтесь, решайте....

16 FreeBasic - Игра "Прыгающие шашки"
15 FreeBASIC - Игра "Быки и коровы"
14 FreeBASIC - тасуем карты (массивы-задачи ч2)
13 FreeBASIC - массивы(задачи)
12 FreeBASIC - массивы
11 FreeBASIC - задачки
10 FreeBASIC - Игра угадай число
09 FreeBASIC - случайные числа, RND
08 FreeBASIC - случайные числа, RND
07 FreeBASIC - циклы
06 FreeBASIC - условный оператор
05 FreeBASIC - первые простые задачки
04 FreeBasic - графика
03 FreeBASIC. Текстовые переменные и операции с ними
02 FreeBASIC Переменные в Бейсике
01 Начинаем изучать FreeBasic
00 FreeBASIC лучший из диалектов бейсика

@sergiy