Bai tap ma tran hay

Bai 1
program max_min; {Cho ma tram, hay tim phan tu be nhat, lon nhat cua day va cho biet
vi tri cua chung trong ma tran}
uses crt;
var a:array [1..50,1..50] of integer;
m,n,i,j,min,max:integer;
begin
clrscr;
write(`nhap so m= `);readln(m);
writeln;
write(`nhap so n= `);readln(n);
writeln;
for i:=1 to m do for j:=1 to n do
begin
write(`a[`,i,`,`,j,`]= `); readln(a[i,j]);
end;
writeln;
writeln;
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:5);
writeln;
writeln;
end;
writeln;
writeln;
min:=a[1,1];
for i:=1 to m do for j:=1 to n do
if min > a[i,j] then min:=a[i,j];
writeln(`min= `,min);
writeln;
write(`do la so thu `);
for i:=1 to m do for j:=1 to n do
if a[i,j]=min then write(`[`,i,`,`,j,`]`);
writeln;
writeln;
max:=a[1,1];
for i:=1 to m do for j:=1 to n do
if max < a[i,j] then max:=a[i,j];
writeln;
writeln(`max= `,max);
writeln;
write(`do la so thu `);
for i:=1 to m do for j:=1 to n do
if a[i,j]=max then write(`[`,i,`,`,j,`]`);
readln;
end.

Bai 2
program tinh_tong; {Tinh tong cac phan tu tren moi hang va moi cot
cua ma tran}
uses crt;
var a:array [1..50,1..50] of integer;
m,n,i,j:1..50;
s:integer;
begin
clrscr;
write(`nhap so m= `);readln(m);
writeln;
write(`nhap so n= `);readln(n);
writeln;
for i:=1 to m do for j:=1 to n do
begin
write(`a[`,i,`,`,j,`]= `); readln(a[i,j]);
end;
writeln;
writeln;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
writeln;
end;
writeln;
writeln;
for i:=1 to m do
begin
s:=0 ;
for j:=1 to n do s:=s+a[i,j];
writeln(`Tong hang thu `,i,` la: `,s:5);
writeln;
end;
for j:=1 to n do
begin
s:=0;
for i:=1 to m do s:=s+a[i,j];
writeln(`Tong cot thu `,j,` la: `,s:5);
writeln;
end;
readln;
end.

Bai 3
program tinh_tong; {Cho ma tram, hay tim tong cac phan tu co gia tri chan (le)
cua ma tran do}
uses crt;
var a:array [1..50,1..50] of integer;
m,n,i,j:1..50;
s:integer;
begin
clrscr;
write(`nhap so m= `);readln(m);
writeln;
write(`nhap so n= `);readln(n);
writeln;
for i:=1 to m do for j:=1 to n do
begin
write(`a[`,i,`,`,j,`]= `); readln(a[i,j]);
end;
writeln;
writeln;
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:5);
writeln;
writeln;
end;
writeln;
writeln;
write(`Cac phan tu chan cua ma tran la `);
s:=0;
for i:=1 to m do for j:=1 to n do
if (a[