... dobeginFor j:=1 to m doif j=1 thenbegin max: =A[i,j]; min: =A[i,j];endelsebeginif a[i,j]> ;max then max: =A[i,j];if a[i,j]< ;min then min: =A[i,j];end;Writeln('Phan tu lon nhat dong ... integer; i,j,m ,n ,max, min, dem:integer;beginreadln (n, m);For i:=1 to n doFor j:=1 to m doreadln(a[i,j]);For i:=1 to n dobeginFor j:=1 to m dowrite(a[i,j]:5);writelnend;For i:=1 to n ... ');writeln;end;For j:=1 to m dobeginFor i:=1 to n doif i=1 thenbegin max: =A[i,j]; min: =A[i,j];endelsebeginif a[i,j]> ;max then max: =a[i,j];...