Контрольное задание №11-3 / 11-3 / zadanie_3

program Zadanie_3;
var
i,j,m,n: byte;
min: integer;
a: array [1..255,1..255] of integer;
begin
write ('‚ўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ ббЁў  N x M:');
readln (n,m);
for i:=1 to n do
for j:=1 to m do
begin
write ('‚ўҐ¤ЁвҐ a[',i,',',j,'] : ');
readln (a[i,j]);
end;
min:=a[1,1];
if n>m then n:=m;
for i:=1 to n do
begin
j:=i;
if min>a[i,j] then min:=a[i,j];
if min=a[i,j] then min:=min+a[i,j];
end;
if m>n then m:=n;
for j:=1 to m do
begin
i:=j;
if min>a[i,j] then min:=a[i,j];
if min=a[i,j] then min:=min+a[i,j];
end;
write ('‘㬬  ¬Ё­Ё¬ «м­ле н«Ґ¬Ґ­в®ў ¤Ё Ј®­ «Ґ©: ',min);
readln();
end.