j=0
'把四个一维数组的有效元素复制到另一个数组e中for i=0 to v0e(j)=a(i):j=j+1next ifor i=0 to v1e(j)=b(i):j=j+1next ifor i=0 to v2e(j)=c(i):j=j+1next ifor i=0 to v3e(j)=d(i):j=j+1next ifor i=0 to j-1
‘对新数组进行排序,由小到大的顺序for k=0 to j-1-i
if e(k)>e(k+1) then
t=e(k):e(k)=e(...
k=0for i=0 to v0e(k)=a(i)k=k+1next ifor i=0 to v1e(k)=b(i)k=k+1next ifor i=0 to v2e(k)=c(i)k=k+1next ifor i=0 to k-1for j=i+1 to kif e(j)<e(i) thentemp=e(i)e(i)=e(j)e(j)=tempend if...