PROGRAM BT2;
USES crt;
VAR a:ARRAY[1..100,1..100]OF INTEGER ;
i,j,k,l ,m,n,imax,jmax,max: BYTE;
f: TEXT;
BEGIN
clrscr;
assign(f,'BANGSO.INP');
reset(f);
readln(f,m,n);
FOR i:=1 TO m DO
FOR j:=1 TO n DO
Read(f,a[i,j]);
close(f);
Writeln('Cac so nguyen to la');
Writeln;
FOR i:=1 TO m DO
FOR j:=1 TO n DO
IF (a[i,j] > 1) AND (a[i,j] <4) THEN write('A[',i,',',j,']: ',a[i,j],'; ')
ELSE
BEGIN
FOR k:=2 TO a[i,j]-1 DO
BEGIN
IF a[i,j] MOD k = 0 THEN l:=l+1;
END;
IF l=0 THEN write('A[',i,',',j,']: ',a[i,j],'; ');
l:=0;
END;
Writeln;
max:= a[1,1];
imax:=1;
jmax:=1;
FOR i:=1 TO m DO
FOR j:=1 TO n DO
IF a[i,j] > max THEN
BEGIN
max:= a[i,j] ;
imax:=i;
jmax:=j;
END;
Writeln;
Writeln('Phan tu lon nhat trong mang la A[',imax,',',jmax,'] :' ,a[imax,jmax]:4);
Writeln;
Writeln('Ma tran sau sap xep la : ');
Writeln;
FOR i:=1 TO m DO
FOR l:=1 TO n-1 DO
FOR j:=1 TO n-1 DO
IF a[i,j]> a[i,j+1] THEN
BEGIN
k:=a[i,j]; a[i,j] :=a[i,j+1];
a[i,j+1]:=k;
END;
FOR i:=1 TO m DO
BEGIN
FOR j:=1 TO n DO
Write(a[i,j]:4);
Writeln;
Writeln;
END;
readln;
END.
