发布网友 发布时间:2024-10-24 07:33
共1个回答
热心网友 时间:2024-10-25 12:00
当你使用var a:array of integer这样的东西作为过程的形参的时候,这个过程会自动认定数组a的下标是从0开始的,于是你排序的时候第一个数没有排到
另外,运行过程中没有报错数组越界,算你运气好
把你的排序过程里面的
for j:=1 to n-1 do
改成 for j:=0 to n-2 do
for min:=j to n do
改成 for min:=j to n-1 do
除此之外应该没问题了,在我的机子上运行正常