Bài 30/2000 - Phần tử yên ngựa
(Dành cho học sinh THCS)
const
Inp = 'Bai30.INP';
Out = 'Bai30.OUT';
MaxLongInt = 2147483647;
var
Min, Max: array[1..5000] of LongInt;
m, n: Integer;
procedure ReadInput;
i, j, k: Integer;
hf: Text;
begin
Assign(hf, Inp);
Reset(hf);
Readln(hf, m, n);
for i := 1 to m do Min[i] := MaxLongInt;
for j := 1 to n do Max[j] := -MaxLongInt;
for i := 1 to m do
begin
for j := 1 to n do
begin
Read(hf, k);
if Min[i] > k then Min[i] := k;
if Max[j] < k then Max[j] := k;
end;
Readln(hf);
end;
Close(hf);
end;
procedure WriteOutput;
i, j: Integer;
Result: Boolean;
Result := False;
Assign(hf, Out);
Rewrite(hf);
Writeln(hf, 'Cac phan tu yen ngua la: ');
if Min[i] = Max[j] then
begin
Result := True;
Write(hf, '(', i, ',', j, '); ');
end;
if not Result then
Rewrite(hf);
Write(hf, 'Khong co phan tu yen ngua');
ReadInput;
WriteOutput;
end.
3 3
15 3 9
55 4 6
76 1 2
Bạn đang xem bài 30/ - 100 DE TIN HSG CO DAP AN