Найти последний максимальный элемент среди положительных элементов одномерного массива вещественных чисел и его номер. В подпрограмме-процедуре заполнить массив с клавиатуры, а в подпрограмме-функции выполнить поиск максимального элемента и его номера. Pascal