N件衣服因為種種原因而不一樣溼，現在告訴你每件衣服的溼度，要你求出弄乾所有衣服的最少時間（溼度為0為幹）。

題解：

一道很明顯的二分，已知A，B我們二分出答案，就有k=A*mid(總烘乾度),t=B*mid(烘乾機的烘乾度)，再逐個逐個判斷，是否能在mid的時間內烘乾完，若不能則求出還需多少，再更新mid就切了。

程式碼：

var
  n,a,b:longint;
  s:array
 
 [0..600000] of int64;
procedure qsort(l,r:longint);
var
  i,j,m,c:longint;
begin
  i:=l;j:=r;
  m:=s[(l+r) div 2];
  repeat
    while s[i]>m do inc(i);
    while s[j]<m do dec(j);
    if i<=j then
      begin
        c:=s[i];s[i]:=s[j];s[j]:=c;
        inc(i);dec(j);
      end;
  until i>j;
  if
 
 l<j then qsort(l,j);
  if i<r then qsort(i,r);
end;
function find(t:longint):boolean;
var
  i,x,y:longint;
begin
  x:=0;
  for i:=1 to n do
    begin
      y:=s[i]-t*a;
      if y<=0 then exit(true);
      x:=x+y div b;
      if y mod b<>0 then inc(x);
      if x>t then exit(false);
    end
 
;
end;
procedure main;
var
  l,r,m:longint;
begin
  l:=1;
  r:=(s[1]+1) div a;
  while l<=r do
    begin
      m:=(l+r) div 2;
      if find(m) then r:=m-1
        else l:=m+1;
    end;
  m:=(l+r) div 2;
  if not find(m) then inc(m);
  writeln(m);
end;
var
  i:longint;
begin
  readln(n,a,b);
  for i:=1 to n do
    readln(s[i]);
  qsort(1,n);
  main;
end.