var
a:integer;
i,n,c,c1: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;
if (100-(c-a))<(c-100) then break;

end;
end;


writeln(c);



readln
end.