Поиск максимального из чисел

Задача программисту: Найти максимальноеиз вводимых в компьютер чисел.

Задача рыбаку: Принести домой самую большую из выловленных рыб.

Решение рыбака: Рыбак приготовил для самой большой рыбы пустое ведро. Первую пойманную рыбу рыбак не глядя бросает в это ведро. Каждую следующую рыбу он сравнивает с той, что в ведре. Если она больше, то он бросает ее в ведро, а ту, что была там раньше, выпускает в реку.

Решение программиста: Программист приготовил для самого большого числа ячейку и придумал ей название, скажем, max. Первое число программист не глядя вводит в эту ячейку. Каждое следующее число (назовем его chislo) он сравнивает с max. Если оно больше, то он присваивает переменной max значение этого числа.

Напишем программу для определения максимального из 10 вводимых чисел:

Private Sub Command1_Click()

Max = InputBox("Введите число") 'первую рыбу - в ведро

For i = 2 To 10 'ловим остальных рыб:

chislo = InputBox("Введите число") 'поймали очередную рыбу

If chislo > Max Then Max = chislo 'и если она больше той, что в ведре, бросаем ее в ведро

Next i

Debug.Print Max 'несем самую большую рыбу домой

End Sub

Задание 58: Найти из N чисел минимальное. Каким по порядку было введено минимальное число? Указание: для номера минимального числа тоже нужно отвести специальную ячейку.

Задание 59: У вас есть данные о росте ваших одноклассников. Правда ли, что рост самого высокого отличается от роста самого низкого больше, чем на 40 см.?