Viết chương trình bằng Pascal nhập 9 phần tử nguyên của mảng 2 chiều A gồm mai 3 hàng, 3 cột. Tinh và xuất ra màn hình tổng các phần tử nằm trên đường chéo chính của mảng A
Uses crt; Var A: array[1..10000,1..10000] of longint; s,i,j: longint; Begin Clrscr; s:=0; For i:=1 to 3 do For j:=1 to 3 do Begin Write('A[',i,',',j,']= '); Readln(A[i,j]); End; s:=s+A[1,1]+A[2,2]+A[3,3]; Write('Tong: ',s); Readln End.