输入:第一行是一个不超过 100 的正整数 n,第二行是 n 个不超过 106 的正整数,表示每条绳子的长度,第三行是一个不超过 108 的正整数 m。
输出:绳段的最大长度,若无法切割,输出 Failed。
var n, m, i, lbound, ubound, mid, count : longint; len : array[0..100] of longint; // 绳子长度 begin read(n); count := 0; for i := 0 to n - 1 do begin read(len[i]); 1; end; read(m); if (2) then begin writeln('Failed'); exit; end; lbound := 1; ubound := 1000000; while (3) do begin mid := 4; count := 0; for i := 0 to n - 1 do 5; if (count < m) then ubound := mid - 1 else lbound := mid; end; writeln(lbound); end.