2 матрицы, найти среднее арифм., С помощью процедуры и функции... Опции

[Serge Я!]

Кто-нибудь, помогите!
В матрице 5х5 и 7х7 найти средн. арифм. элементов, кратных трем, лежащих на главной и побочной диагонали. Сделать с помощью Procedure и Function. (В смысле, чтобы средн. арифм. вычислялось с процедурой, второй вариант - с функцией)
Пробовал по-всякому, ну не получается... Help?!

[volvo]

Ну, вот так делается с помощью функции для главной диагонали. Остальное - подумай сам, как сделать...

const
  n = 10;
type
  mx = array[1 .. n, 1 .. n] of integer;

function average(var m: mx; n: integer): real;
var i, count, s: integer;
begin
  s := 0; count := 0;
  for i := 1 to n do
    if m[i, i] mod 3 = 0 then begin
      s := s + m[i, i];
      inc(count);
    end;

  if count > 0 then average := s / count
  else average := 0;
end;

var
  a, b: mx;
  i, j: integer;

begin
  for i := 1 to 5 do begin
    for j := 1 to 5 do begin
      a[i, j] := random(9); write(a[i, j]:3);
    end;
    writeln;
  end;

  writeln(average(a, 5));
end.