2018.01.28【GDOI2018】模拟C组—

2018.01.28【GDOI2018】模拟C组——删数

本文主要是介绍2018.01.28【GDOI2018】模拟C组——删数，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

Description

　　有N个不同的正整数数x1, x2, … xN 排成一排，我们可以从左边或右边去掉连续的i个数（只能从两边删除数），1<=i<=n，剩下N-i个数，再把剩下的数按以上操作处理，直到所有的数都被删除为止。　　每次操作都有一个操作价值，比如现在要删除从i位置到k位置上的所有的数。操作价值为|xi – xk|*(k-i+1)，如果只去掉一个数，操作价值为这个数的值。　　任务：如何操作可以得到最大值，求操作的最大价值。

Input

　　输入文件的第一行为一个正整数N，第二行有N个用空格隔开的N个不同的正整数。

Output

　　输出文件包含一个正整数，为操作的最大值

Sample Input

54 29 196 21 133 118

Sample Output

768

Data Constraint

【数据范围】 3<=N<=100 N个操作数为1..1000 之间的整数。

Hint

【样例解释】　　经过3 次操作可以得到最大值，第一次去掉前面3个数54、29、196，操作价值为426。第二次操作是在剩下的三个数（21 133 118）中去掉最后一个数118，操作价值为118。第三次操作去掉剩下的2个数21和133 ，操作价值为224。操作总价值为426+118+224=768。

思路

很多人写的都是三重循环的dp，不过我写的是两重循环的dp
它说可以从两边开始，其实是在迷惑选手，直接从左边或右边开始即可，无需做其他的。
公式：f[i]:=max(f[i],f[j-1]+abs(a[j]-a[i])*(i-j+1));
还要加上f[i]:=max(f[i],f[i-1]+a[i]);

程序

varn:longint;a,f:array[0..1001]of longint;
procedure init;
var i:longint;
beginreadln(n);for i:=1 to n doread(a[i]);readln;
end;
function max(x,y:longint):longint;
beginif x>y then exit(x)else exit(y);
end;
procedure main;
var i,j:longint;
beginf[1]:=a[1];for i:=2 to n dobeginfor j:=1 to i-1 dof[i]:=max(f[i],f[j-1]+abs(a[j]-a[i])*(i-j+1));f[i]:=max(f[i],f[i-1]+a[i]);end;
end;
begininit;main;writeln(f[n]);
end.