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.