program gljive;
var a:integer;
i,n,c:integer;
begin
for i:=1 to 10 do begin
readln(a);
c:=c+a;
if c=100 then c:=100;
if c>100 then begin
if (100-(c-a))<(c-100) then c:=c-a;
end;
end;




writeln(c);

end.