Nhập ma trận A nguyên. Kiểm tra xem có 2 hàng giống nhau hay không?
Dữ liệu nhập: cho trong file Bai.inp gồm:
- Dòng 1: Số nguyên n là số dòng và m là số cột của ma trận
- Các dòng còn lại là giá trị từng phần tử của ma trận.
Dữ liệu xuất: Xuất ra file bai.out
Ví dụ:
FILE BAI.INP:
3 4
1 1 2 2
1 1 2 2
1 2 1 1
FILE BAI.OUT:
CÓ
uses crt;
Trả lờiXóaVar f:array[1..100,1..100] of longint;
n,m,i,j:longint;
test:boolean;
function test1(a,b:longint):boolean;
Var x:longint;
Begin
test:=false;
For x:=1 to m do
If f[a,x]<>f[b,x] then exit(false);
exit(true);
end;
Begin
readln(n);
readln(m);
For i:=1 to n do
For j:=1 to m do
readln(f[i,j]);
For i:=1 to n-1 do
Begin
For j:=i+1 to n do
If test1(i,j) then Begin Write('CO'); test:=true; break; end;
If test=true then break;
end;
If test=false then Write('KHONG');
readln;
end.