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];

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;

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[i,j]mod 2=0) then
begin
write(a[i,j]:5);
s:=s+a[i,j];{Tinh tong cac so le thi
(a[i,jmod 2<>0)}
end;
writeln;
writeln;
write('Tong cac phan tu chan cua ma tran
la s= ',s);
readln;
end.
Bai 4
program tinh_tong; {Cho ma tram, hay tim
tong cac phan tu co so hang la boi cua k,
voi k la so thich hop cho tu ban phim}
{lam tuong tu voi cac phan tu doi
voi cot }
uses crt;
var a:array [1..50,1..50] of integer;
m,n,i,j,k:1..50;
s:integer;
begin
clrscr;
write('Moi nhap so m= ');readln(m);
writeln;

uses crt;
VAR a,b:array[1..50,1..50] of integer;
m,n,p,q,i,j:integer;
procedure tinh_tong_hai_ma_tran;
var c:array[1..50,1..50] of integer;
begin
writeln('Tong ma tran mot va hai la ma
tran ba,ma tran ba bang');
writeln;
for i:=1 to m do for j:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
for i:=1 to m do
begin
for j:=1 to n do write(c[i,j]:5);
writeln;
writeln;
end;
end;
procedure tinh_tich_hai_ma_tran;
var d:array[1..50,1..50] of integer;
k:integer;
begin
writeln('Tich ma tran mot va hai la ma
tran bon,ma tran bon bang');
for i:=1 to m do for k:=1 to q do
begin
d[i,k]:=0;
for j:=1 to n do d[i,k]:=d[i,k]
+a[i,j]*b[j,k];
end;

Writeln;
writeln('Ta co ma tran mot la');
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;
writeln('Ta co ma tran hai la');
writeln;
writeln;
for i:=1 to p do
begin
for j:=1 to q do write(b[i,j]:5);
writeln;writeln;
end;
writeln;
if (m=p) and (n=q) then
tinh_tong_hai_ma_tran;
writeln;
if n=p then tinh_tich_hai_ma_tran;
writeln;
readln;
end.
Bai 6
program

s:=0;
for i:=1 to n do s:=s+a[i,i];
writeln;
writeln;
write('Tong cac phan tu tren duong cheo
chinh cua ma ma tran ',s);
readln;
end.
Bai 7
{program ma_tran_chuyen_vi; {cho ma tran
vuong ,tim ma tran chuyen vi}
{uses crt;
var n,i,j,tg:integer;
a:array[1..50,1..50] of integer;
BEGIN
clrscr;
repeat write('nhap so hang so cot cua day
');readln(n); until n>0;
for i:=1 to n do for j:=1 to n do
begin write('a[',i,',',j,']=
');readln(a[i,j]); end;
writeln; writeln; writeln('day ban dau
la'); writeln;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:5);
writeln;
end;
for i:=1 to n do for j:=1 to i do
begin

for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
{tao ma tran chuyen vi}
for i:=1 to n do
for j:=1 to m do
b[i,j]:=a[j,i];
writeln('ma tran chuyen vi la:');
for i:=1 to n do
begin
for j:=1 to m do
Write(b[i,j]:5);
writeln;
end;
readln;
end.
Bai 8
program ma_tran;
{Lap chuong trinh ma tran vuong A cap n
voi cac phan tu la so nguyen vao may
bien doi A ve ma tran tam giac duoi va ma
tran tam giac tren cua A ra man hinh}
uses crt;
type matran=array[1..50,1..50] of integer;
var a:matran;
i,j,n:integer;
begin
clrscr;
write('Do A la ma tran vuong nen so dong

uses crt;
var i,j,n:integer;
begin
clrscr;
write('Moi ban nhap n= ');
readln(n);
writeln;
writeln('Ma Tran tam giac dac biet ta thu
duoc la');
writeln;
for i:=n downto 1 do
begin
for j:=i downto 1 do
write(j:5);writeln;
writeln;
end;
readln;
end.