Một ma trận n x n gọi là ma trận đều theo hàng, cột nếu tổng các số hạng theo từng hàng hoặc từng cột đều bằng nhau. Hãy lập trình xem 1 ma trận có phải là ma trận đều theo hàng, cột hay không?
- Dữ liệu nhập: Nhập từ bàn phím: số nguyên n và giá trị từng phần tử của ma trận.
- Dữ liệu xuất: Xuất ra màn hình trả lời đúng hay sai.
Ví dụ:
3
1 6 7
2 7 5
11 1 2
=> Đúng vì tổng hàng hay tổng cột đều bằng 14.
Uses crt;
Trả lờiXóaVar n,nho,nho2,i,j:longint;
kq:boolean;
f:array[1..1000,1..1000] of longint;
Begin
kq:=true;
readln(n);
For i:=1 to n do
Begin
readln(f[1,i]);
nho:=nho+f[1,i];
end;
For i:=2 to n do
Begin
nho2:=0;
For j:=1 to n do
Begin
readln(f[i,j]);
nho2:=nho2+f[i,j];
end;
If nho2<>nho then kq:=false;
end;
If kq=true then
For j:=1 to n do
Begin
nho2:=0;
For i:=1 to n do
nho2:=nho2+f[j,i];
If nho2<>nho then kq:=false;
end;
If kq then Write('Dung') else Write('Sai');
readln;
end.