Помогите пожалуста решить задачку, заранее спасибо

[Rakfeller]

Даны две матрицы А и В. Вычислить в каждой матрице количество положительных элементов, кратных 3. Для матрицы с большим значением количества найти минимальный элемент и его индексы. (через процедуры и функции)

[Sazary]

В чем проблема? Чем помочь?

Вот вам одна из функций:

type matrix = array[1..100,1..100] of integer;
..................
....................
function getCount(A : matrix; M,N : integer) : integer;
var cnt,i,j : integer;
begin
cnt := 0;
for i:=1 to M do
 for j:=1 to N do
  if (A[i,j]>0) and (A[i,j] mod 3 = 0) then inc(cnt);
getCount := cnt;
end;

[Rakfeller]

мне бы полностью всю задачю решить...а то я ваще не понимаю

[Sazary]

Сообщение от Rakfeller

а то я ваще не понимаю

И не поймете, если сами не будете ничего делать.