边集数组读入。。。

不知道你说的啥意思, 我知道这个:
假如给你 m,n,k，表示 m到n的边权值是K，那么
for i:=1 to s do //s是边数
begin 
readln(m,n,k);
a[m,n]:=k;
end;

知道邻接表么？就是去掉指针域，按边顺序排列，一个索引表
来记录第i条边在何处开始，另一个记录第i条边的结束。形式：
const
n=10(点数);e=30;
type
tnode=record
adv:integer;
weight:integer;
end;
ediglist=array[1..e]of tnode;
index=array[1..n]of integer;

那我给的就对了。
前面加上
FILLCHAR(A,SIZEOF(A),0);

2L的理解能力很有问题,lz说的是边集数组,2L给出的是邻接矩阵,最耗空间和时间的一种方法.
ps:如果想用O(m)的算法,试一下桶排吧

邻接矩阵对于稀疏图耗空间这没问题，但不过耗时间你就太扯了吧
算了，不想引起冲突，真正的大牛都很和善（不是说我），您知道邻接矩阵和边集数组在添加或删除边上时间复杂度的差距么？邻接矩阵就是空间换时间，O(1)的判断是否相连，O(1)的添加或删除边，O(1)的...我不Ps了，也不想骂人，我本来挺和善一人但就是看不惯，林子大了什么鸟都有，算了算了...