记录编号 117103 评测结果 AAAAAAAAAA
题目名称 [NOIP 2010PJ]三国游戏 最终得分 100
用户昵称 Gravatar传奇 是否通过 通过
代码语言 Pascal 运行时间 0.048 s
提交时间 2014-08-28 10:10:02 内存使用 1.12 MiB
显示代码纯文本
program cojs987;
var
  a:array[1..500,1..500] of longint;
  i,j,n,max1,max2,maxans:longint;
begin
  assign(input,'sanguo.in');
  assign(output,'sanguo.out');
  reset(input);
  rewrite(output);

  writeln(1);
  readln(n);
  for i:=1 to n do
    for j:=i+1 to n do
	  begin
	    read(a[i,j]);
		a[j,i]:=a[i,j];
	  end;
  maxans:=0;
  for i:=1 to n do
    begin
	  max1:=0; max2:=0;
	  for j:=1 to n do
	    begin
		  if a[i,j]>max1 then
		    begin
			  max2:=max1;
			  max1:=a[i,j];
			end;
		  if (a[i,j]>max2)and(a[i,j]<max1) then
		    max2:=a[i,j];
		end;
	  if max2>maxans then
        maxans:=max2;	
	end;
  writeln(maxans);	
	
  close(input);
  close(output);
end.