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[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; write('Moi nhap so n= ');readln(n); writeln; write('Moi nhap k= ');readln(k); writeln; 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 for j:=1 to n do if (i mod k=0) then s:=s+a[i,j]; {if (j mod k=0) then s:=s+a[i,j];} {Doi voi cot} writeln; write('Tong cac phan tu co so hang la boi ',k,' la s= ',s); readln; end. Bai 5 program tinh_toan_voi_ma_tran; 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; for i:=1 to m do begin for k:=1 to q do write(d[i,k]:5); writeln; writeln; end; writeln; end; BEGIN clrscr; write('nhap m= ');readln(m); {m,n so dong,cot ma tran mot} write('nhap n= ');readln(n); for i:=1 to m do for j:=1 to n do begin write('a[',i,',',j,']= '); readln(a[i,j]); end; writeln; write('nhap p= ');readln(p); {p,q so dong,cot ma tran hai} write('nhap q= ');readln(q); for i:=1 to p do for j:=1 to q do begin write('b[',i,',',j,']= '); readln(b[i,j]); end; writeln; 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 cho_ra_cac_phan_tu_tren_duong_cheo_chinh; {va ca tong cua chung} uses crt; var a:array [1 50,1 50] of integer; n,i,j,s:integer; begin clrscr; write('nhap so n= ');readln(n); for i:=1 to n do for j:=1 to n do begin write('a[',i,',',j,']= '); readln(a[i,j]); end; writeln; writeln; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:5); writeln; writeln; end; writeln; writeln; write('Cac phan tu tren duong cheo chinh la'); writeln; writeln; for i:=1 to n do write(a[i,i]:5); writeln; writeln; 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 tg:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=tg; end; writeln; writeln; writeln('day sau khi chuyen vi la'); writeln; writeln; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:5); writeln; end; readln; end.} program chuyen_vi_tong_quat; {cho ma tram cap (m,n) tim ma tran chuyen vi } uses crt; var a,b:array[1 100,1 100]of integer; m,n,i,j:integer; begin clrscr; write('nhap so hang');readln(m); write('nhap so cot');readln(n); for i:=1 to m do for j:=1 to n do begin write('a[',i:2,',',j:2,']='); readln(a[i,j]); end; {xem ma tran a sau khi nhap} writeln('ma tran a sau nhap la:'); for i:=1 to m 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 bang so cot= '); readln(n); for i:=1 to n do for j:=1 to n do begin write('a[',i,',',j,']= ');readln(a[i,j]); writeln; end; writeln('Ma tran tam giac tren cua A'); for i:=1 to n do {chu y day la cach viet so kieu ma tran } begin for j:=1 to n do begin write(a[i,j]:7); end; writeln; end; writeln('Ma tran tam giac duoi cua A'); for i:=2 to n do begin for j:=1 to i-1 do write(a[i,j]:7); writeln; end; writeln; readln; end. Bai 9 program Ma_tran_tam_giac_dac_biet;{bai 65} {n n-1 1 1 } 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. . 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. 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');