输入N个点坐标，求所有长度的线段和 var a:array[1..10000] of longint; i,j,n:longint; ans:int64; begin read(n); for i:=1 to n do read(a[i]); for i:=2 to n do for j:=1 to i-1 do ans:=ans+abs(a[i]-a[j]); writeln(2*ans); end.