危险的实验,求大神题解
pascal吧
全部回复
仅看楼主
level 1
YXNH_yyq 楼主
小明最近在上化学课,他需要使用到n种化学物质来进行他的实验。在做实验的时候,他需要将所有化学物质放在桌面上,按次序排成一条直线。 然而每一种化学物质都是危险品,对于第i个化学物质,如果有另外一个化学物质距离它的距离小于ai,那么就会发生爆炸。 小明想知道如果要安全的完成他的实验,桌子最短可以多短。
数据范围 :20%的数据,1<=n<=20
50%的数据,1<=n<=100000 100%的数据,1<=n<=1000000,1<=ai<=100000
输入第一行一个整数n,表示化学物质的个数。 第二行有n个整数,第i个整数ai表示第i个化学物质必须与其他化学物质保持的距离。 输出输出一行,包括一个整数,表示能够让小明安全完成实验的桌子最小长度。 注意:物品要安原来的次序摆放。
2017年06月07日 13点06分 1
level 1
var
a:array[1..1000000]of longint;
i,n,x,max:longint;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
begin
if a[i]>a[i+1]then x:=a[i]else x:=a[i+1];
max:=max+x;
end;
write(max);
end.
2017年06月12日 13点06分 2
1