Submission #1986604

---

Source Code Expand

var
  ans, i, ma, a, k, t: integer;
begin
  read(k);
  readln(t);
  for i := 1 to t do
  begin
    read(a);
    if ma < a then ma := a;
  end;
  
  ans := (ma - (k - ma) - 1);
  if 0 < ans then writeln(ans) else writeln(0);
end.

Submission Info

Compile Error

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

Judge Result