【文件属性】:
文件名称:判断线段线段长度,由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.