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