Подпрограммы о масивах !!

[masha17]

Написать подпрограммы:
1) В виде функции: расчёт суммы двух любых элементов двухмерного массива.
2) В виде процедуры: расчёт среднего арифметического трех любых элементов двухмерного массива.

[Sazary]

В каком виде в подпрограмму подаются данные?
Если посылаются сами элементы, то:
1)

function summ(el1,el2 : real) : real;
 begin
 summ := el1+el2;
 end;

2)

procedure sredarif(el1,el2,el3 : real; var res : real);
 begin
 res := (el1+el2+el3)/3;
 end;

Или можно посылать в качестве параметров сам массив и индексы нужных элементов.