Submission #3051674

---

Source Code Expand

var
  n,m,q,i,t,ans:longint;
  b:array[0..10000] of longint;
begin
  readln(n,m);
  for i:=1 to n do
    read(b[i]);
  t:=1;
  while m<>0 do
    begin
      q:=m mod 2;
      if q=1 then
        ans:=ans+b[t];
      m:=m div 2;
      inc(t);
    end;
  writeln(ans);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result