讨论 / 请问为什麽最后两点没通过?pascal
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.

查看更多回复
提交回复