Ví dụ:
Mã: Chọn tất cả
Moi ban nhap vao so N: 3
Moi ban nhap lan luot cac so hang 1: 1 2 3
Moi ban nhap lan luot cac so hang 2: 4 5 6
Moi ban nhap lan luot cac so hang 3: 7 8 9
Tong 2 duong cheo la: 25
Mã: Chọn tất cả
Uses Crt;
Var N, i, j, Tong : Integer;
M : Array[1..100, 1..100] Of Integer;
Begin
ClrScr;
N := 0;
While ((N < 2) Or (N > 10)) Do
Begin
Write('Moi ban nhap vao so N: ');
ReadLn(N);
End;
For i := 1 To N Do
Begin
Write('Moi ban nhap lan luot cac so hang ', i, ': ');
For j := 1 To N Do Read(M[i, j]);
ReadLn;
End;
Tong := 0;
For i := 1 To N Do
For j := 1 To N Do
If ((i = j) Or (i + j = N + 1)) Then Tong := Tong + M[i, j];
Write('Tong 2 duong cheo la: ', Tong);
ReadLn;
End.