Nhập ma trận A các số nguyên. Tìm vị trí các phần tử đạt max.
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 lai là giá trị từng phần tử của ma trận.
Dữ liệu xuất: Xuất ra file Bai.out gồm các dòng là vị trí của các phần tử đạt max.
Ví dụ:
FILE BAI .INP:
3 4
2 4 5 3
2 7 9 9
9 3 2 1
FILE BAI.OUT:
Vị trí các phần tử đạt max:
2 3
2 4
3 1
Uses crt;
Trả lờiXóaVar n,m,i,j,max:longint;
t:array[1..1000,1..1000] of boolean;
f:array[1..1000,1..1000] of longint;
Begin
readln(n);
readln(m);
For i:=1 to n do
For j:=1 to m do
Begin
readln(f[i,j]);
If f[i,j]>max then Begin fillchar(t,sizeof(t),false); max:=f[i,j]; t[i,j]:=true; end
else If f[i,j]=max then t[i,j]:=true;
end;
For i:=1 to n do
For j:=1 to m do
If t[i,j]=true then Writeln(i,' ',j);
readln;
end.