记录编号	22291	评测结果	AAAAAAAAAA
题目名称	分班	最终得分	100
用户昵称	wo shi 刘畅	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2010-11-18 15:10:39	内存使用	0.11 MiB

var
  n,x,l,i,r,up,down:longint;
  a:array[0..100]of longint;

procedure init;
var
  i,x:longint;
begin
  assign(input,'groupa.in'); reset(input);
  assign(output,'groupa.out'); rewrite(output);
  readln(n);
  x:=0;
  for i:=1 to n do
  begin
    read(a[i]);
    x:=x+a[i];
  end;
  read(down,up);
  if (x<down*n)or(x>up*n) then
  begin
    writeln(-1);
    close(input);
    close(output);
    halt;
  end;
end;

begin
  init;
  for i:=1 to n do
  begin
    if a[i]>up then inc(r,a[i]-up);
    if a[i]<down then inc(l,down-a[i]);
  end;
  if r>l then writeln(r)
  else writeln(l);
  close(input);
  close(output);
end.