Ta上传的资源 (0)

输入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