Дан массив, заполненный случайными целыми числами в диапазоне от -30000 до 30000. Напишите подпрограмму, которая определяет минимальное значение среди двузначных положительных элементов массива. Размер массива заранее задан константой N. Используйте заголовок: function find(m: TMas): longint; Если в массиве нет ни одного элемента удовлетворяющего критериям - вернуть "-1". Тип ТMas задан как array[1..N] of integer и может использоваться для описания параметров подпрограмм