Submission #1712700

---

Source Code Expand

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  n,i,j,max,chumon:Integer;
  onedan:array of Integer;
begin
  try
    { TODO -oUser -cConsole Main : ここにコードを記述してください }
    Readln(n);
    SetLength(onedan,n);
    for i := 0 to n - 1 do begin
      Readln(onedan[i]);

    end;
    max:=onedan[0];
    chumon:=0;
    for i := 0 to n - 1 do begin
      if max<onedan[i] then
        max:=onedan[i]
    end;
    for i := 0 to n - 1 do begin
      if (chumon<onedan[i]) and (onedan[i]<max) then
        chumon:=onedan[i]
    end;
    Writeln(chumon);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result