Только паскаль
дан массив, заполненный случайными целыми числами в диапазоне от -3 до 3.
напишите подпрограмму, которая определяет минимальное значение среди двузначных положительных элементов массива.
размер массива заранее задан константой n. используйте заголовок:
function find(m: tmas): longint;
если в массиве нет ни одного элемента удовлетворяющего критериям - вернуть "-1".
тип тmas задан как array[1..n] of integer и может использоваться для описания параметров подпрограмм