zq1111 2010-11-30 00:24:00
点我顶贴
收藏
删除
program Project1;
var
du,w1,w2:array[1..10000]of longint;d1,d2:set of 1..255;
n,i,j,k,temp:longint;flag:boolean;
begin
//assign(input,'input.in');reset(input);
readln(n);
k:=1;
for i:=1 to n do
begin
for j:=i+1 to n do
begin
w1[k]:=i;w2[k]:=j;
read(du[k]);
inc(k);
end;
readln;
end;
d1:=[];d2:=[];
for i:=1 to k-1 do
for j:=i to k do
if du[i]<du[j] then begin temp:=du[j];du[j]:=du[i];du[i]:=temp;
temp:=w1[j];w1[j]:=w1[i];w1[i]:=temp;
temp:=w2[j];w2[j]:=w2[i];w2[i]:=temp;
end;
k:=k-1;
for i:=1 to k do
if not(w1[i]in d1)and not(w1[i]in d2)and not(w2[i]in d1)and not(w2[i]in d2)then
begin d1:=d1+[w1[i]];d2:=d2+[w2[i]];end
else begin writeln(1);
writeln(du[i]);
flag:=true;
break;
end;
if not flag then writeln(0);
end.