Question

使用Object Pascal语言完成一个排序程序。

排序程序要求：定义一个整型数组，var XXX_matrix: array[1..10]
of integer; 数组排序为从小到大进行。其中，XXX为你的名字的拼音首字母。

Answer 1

　　var a_matrix:array[1..10]of integer;
　　 i,j,temp:integer;
　　begin
　　 //数组生成段，省略，请根据需要自己添加；
　　 //排序
　　 for i:=1 to 9 do
　　 for j:=i+1 to 10 do
　　 if a[i]>a[j]
　　 begin //交换
　　 temp:=a[i];
　　 a[i]:=a[j];
　　 a[j]:=temp;
　　 end;
　　 for i:=1 to 10 do write(a[i],'');//输出
　　end.