文件名称：判断线段线段长度，由pascal编写
文件大小：123KB
文件格式：EXE
更新时间：2013-12-03 10:49:22
求线段长度和的一个小程序 由pacal编写 随便编着玩玩 希望大家喜欢
输入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.