... end; Tong_ duong_ CC:=0; Begin for i:=1 to n for j:=1 to n if i=j then {phần tử có hàng cột } Tong_ duong_ CC: =Tong_ duong_ CC+A[i,j]; Writeln(' tong cac phan tu nam tren duong cheo chinh la' ,Tong_ duong_ CC); ... nh sau: {phần khai báo mảng hai chiều } Program Tong_ duong_ cheo_ chinh_ mang_ 2 _chieu; type mang= array[1 100,1 100] of integer; var Tong_ duong_ CC,i,j,n:integer; a :mang; Begin { Mảng hai chiều với ... nh sau: {phần khai báo mảng hai chiều } Program Tong_ duong_ cheo_ phu_ mang_ 2 _chieu; type mang= array[1 100,1 100] of integer; var Tong_ duong_ CP,i,j,n:integer; a :mang; Begin { Mảng hai chiều với số...