[SawA]

Код:

begin
min:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if (i=j) and a[i,j]<min then
min:=a[i,j]

end;

з.ы если я не ошибаюсь и главная диагональ когда i=j