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