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