uses crt;

label 1,2,3;

var a:array[1..20,1..20] of integer;

n,h,k,i,j,max,min:integer;

r:char;

Begin

clrscr;

Write(' Hay Nhap Vao so hang va cot Cua Ma Tran A:'); Readln(n,h);

For I:=1 to n do For J:=1 to h do

begin

Write('A[',i,',',j,']'); Readln(a[i,j]); k:=k+1;

If k=1 then begin max:=a[1,1]; min:=a[1,1]; end;

If A[i,j]>max then max:=a[i,j];

If a[i,j]<min then min:=a[i,j];

end;

For I:=1 To n do

begin

For j:=1 to h do

write(' ',a[i,j]);

Writeln;

end;

Writeln(' Gia Tri Lon Nhat la:',max);

Writeln(' Gia Tri Be Nhat La:', min);

Readln;

End.