比赛 20111104 评测结果 EEEEEEEEEE
题目名称 网球赛 最终得分 0
用户昵称 Launcher 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2011-11-04 20:45:29
显示代码纯文本
program elimination;
var
 a:array[1..1025,1..1025]of integer;
 b:array[1..1025]of integer;
 i,j,f,k,m,n,max:longint;
 function ff(l,r:integer):integer;
 var i,j,x,y:integer;
 begin
  if l-r>1 then
   begin
    x:=ff(l,(l+r)div 2);
    y:=ff((l+r)div 2,r);
    if a[x,y]>=a[y,x] then ff:=x else ff:=y;
    exit;
   end;
  if a[l,r]>=a[r,l] then ff:=l else ff:=r;
 end;

begin
 assign(input,'d:\elimination.in');reset(input);assign(output,'elimination.out');rewrite(output);
 readln(m);
 n:=1;
 for i:=1 to m do
  n:=n*2;
 for i:=1 to n do
  for j:=1 to n do
   read(a[i,j]);
 k:=ff(1,n);

 writeln(k);



 close(input);close(output);
end.