</>插入代码
by sleepyNick @ 2018-07-24 19:56:44
```pascal
var
a:array[-2..1000005]of longint;
f,ff:array[-2..1000005]of int64;
i,j,n,aa,b,c,max:longint;
s,ans:int64;
function work(x:int64):int64;
begin
exit(aa*sqr(x)+b*x+c);
end;
begin
readln(n);
read(aa,b,c);
max:=-b div (2*aa);
for i:=1 to n do read(a[i]);
for i:=1 to n do
if (a[i]>=max)and(s=0) then begin ans:=ans+work(a[i]); s:=0; end else
if (a[i]>=max)and(s=0) then begin ans:=ans+work(a[i])+work(s); s:=0; end else
if (s+a[i]>=max)and(s<>0) then
begin
if abs(s+a[i]-max)>abs(s-max) then ans:=ans+work(a[i])+work(s) else
ans:=ans+work(s+a[i]);
s:=0;
end else s:=s+a[i];
if s<>0 then ans:=ans+work(s);
writeln(ans);
end.
```
by SJY_2017 @ 2018-07-24 19:57:33
考古
by jyttoby @ 2020-05-14 19:15:44