[1026]Noip 2010 Problem 4 Sanguo

 算法：构造如下表格，选取每行第二大的

	1	2	3	4	5	6	第二小
1	0	5	28	16	29	27	28
2	5	0	23	3	20	1	20
3	28	23	0	8	32	26	28
4	16	3	8	0	33	11	16
5	29	20	32	33	0	12	32
6	27	1	16	11	12	0	16

 1 Var n,i,j,ans,temp,te:longint;

 2     a:array[1..500,1..500]of qword;
 3 begin
 4   readln(n);
 5   for i:=1 to n-1 do
 6   begin
 7     for j:=i+1 to n do
 8     begin
 9       read(a[i][j]);
10       a[j][i]:=a[i][j];
11     end;
12     readln;
13   end;
14   {for i:=1 to n do
15   begin
16     for j:=1 to n-1 do write(stderr,a[i][j],' ');
17     writeln(stderr,a[i][n]);
18   end;}
19   for i:=1 to n do
20   begin
21     temp:=0;
22     te:=0;
23     for j:=1 to n do if temp<a[i][j] then
24     begin
25       temp:=a[i][j];
26     end;
27     for j:=1 to n do if (a[i][j]<temp)and(a[i][j]>te) then te:=a[i][j];
28     if te>ans then ans:=te;
29   end;
30   writeln(1);
31   writeln(ans);
32 end.

转载于:https://www.cnblogs.com/shy-/archive/2012/10/26/2741658.html