program gljive;
var i,n,x,r,k:longint;
begin
 r:=0;
 for i:=1 to 10 do
 begin
  readln(x);
  r:=r+x;
  if r>100 then
  begin
   if (100-(r-x))<(r-100) then r:=r-x;
   if (100-(r-x))<(r-100) then break;
  end;
 end;
 writeln(r);
end.