Паскаль. Подпрограммы.

[derhummel]

Составить подпрограмму определяющую, явл. ли элемент матрицы Aij локальным минимумом т.е. удовл. ли он условием Aij<Akl, где i-1<=k<=i+1;
j-1<=l<=j-1;
(k,l)<>(i,j);
и пользуя ее определением, явл. ли элемент А4,2; А1,6; А3,3 - локальными минимумами в матрице размером 5х7. Элементы матрицы взять произвольными.

[Хыиуду]

Код: Выделить всё

function localmin(i,j:integer):boolean;
var m,n: integer;
begin
  localmin:=true;
  for m:=i-1 to i+1 do
  for n:=j-1 to j+1 do
  begin
     if (m=i) and (n=j) then continue;
     if A[m,n]<A[i,j] then begin localmin:=false;break; end;
  end;
end;