Ý tưởng:
- Tăng tất cả các số nằm trong đoạn a[i], b[i] lên 1
sau đó tìm xem số nào được tăng nhiều nhất, in ra số đó và tất cả đoạn chứa nó :))
uses crt;
var cnt:array[0..10] of word;
a,b:array[0..1000] of byte;
i,j,n,m,ma:byte;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
read(a[i],b[i]);
for j:=a[i] to b[i] do
inc(cnt[j]);
end;
m:=0;ma:=cnt[0];
for i:=1 to 10 do
if cnt[i] > ma then
begin
m:=i;
ma:=cnt[i];
end;
writeln(m);
for i:=1 to n do
if (a[i] <= m) and (m <= b[i]) then
writeln(a[i],' ',b[i]);
readln;
end.