Question

программа получает на вход количество чисел в последовательности а затем сами числа. В последовательности всегда имеется число оканчивающейся на 6. Количество чисел не привешает 1000. Введённые числа не привешает 30000. Программа должна вывести одно число - минимальное число оканчивающейся на 6

Answer 1

Ответ:

Объяснение:

Пример программы (Pascal) , которая ищет минимальное трехзначное число, заканчивающееся цифрой "6" :

Answer 2

Function func32722523(a As Range) As Integer

Dim min_value As Integer, r As Range

For Each r In a

If r Like "*6" Then Exit For

Next

min_value = r

For Each r In a

If r Like "*6" Then min_value = Application.min(min_value, r)

Next

func32722523 = min_value

End Function

Excel VBA