var k,n,i,q,w:integer;
begin
read(k,n);
for i:=1 to n do begin
  read(q);
  w:=w+q;
  end;
if k*n>=w then writeln(0) else writeln(w-k*n);
end.

Такая же проблема