给一位小朋友的答案

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
分类
(无)
标签
递交数
835
已通过
427
通过率
51%
被复制
16
上传者