Submission #2529663

---

Source Code Expand

var
    t:int64;
    n,k,i:longint;
    a,s:array[0..100001] of int64;
begin
    read(n,k);
    for i:=1 to n do read(a[i]);
    s[k]:=0;
    for i:=1 to k do s[k]:=s[k]+a[i];
    t:=s[k];
    for i:=k+1 to n do
    begin 
        s[i]:=s[i-1]-a[i-k]+a[i];
        t:=t+s[i];
    end;
    writeln(t);
end.

Submission Info

Compile Error

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

Judge Result