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

Объяснение:

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

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