- 三国游戏
- 2016-11-11 21:28:55 @
var
n,i,j,max1,max2,max3,k:longint;
a:array[0..501,0..501]of longint;
begin
readln(n);
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
read(a[i,j]);
a[j,i]:=a[i,j];
end;
readln;
end;
max1:=0;
max2:=0;
max3:=0;
for i:=1 to n do
begin
max1:=0;
max2:=0;
for j:=1 to n do
if a[i,j]>max1
then
begin
max2:=max1;
max1:=a[i,j];
end
else
if a[i,j]>max2
then
max2:=a[i,j];
if max3<max2 then max3:=max2;
end;
writeln('1');
writeln(max3);
end.
0 条评论
目前还没有评论...
信息
- ID
- 1809
- 难度
- 3
- 分类
- (无)
- 标签
- 递交数
- 839
- 已通过
- 428
- 通过率
- 51%
- 被复制
- 16
- 上传者