program Project1;
var i,s,x,t:integer;
    a:array [1..12] of integer;
begin
    for i:=1 to 12 do readln(a[i]);
    s:=0;
    x:=0;
    t:=13;
    for i:=1 to 12 do begin
                          s:=s+300;
                          if (s-a[i]<0) and (t>i) then t:=-i;
                          if (s-a[i]<0) then s:=0
                                        else begin
                                                 s:=s-a[i];
                                                 x:=x+s div 100;
                                                 s:=s mod 100;
                                             end;
                      end;
    if t<13 then writeln(t)
            else writeln(s+x*10*12);
end.
/**************************************************************
	Problem: 2248
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/