从小到大排序pascal

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/07/07 17:07:30

从小到大排序pascal
输入n个正整数,按从小到大的顺序输出.Input 第一行只有一个正整数：n (1<=n<=1000) 第二行共有n个正整数,数与数之间用一个空格隔开,每一个正整数均不超过3000Output 共有若干行,每行10个数据,每个数据占用5个字符位置（最后一行可以少于10个数据）Sample Input 3 5 6 3 Sample Output 3 5 6

var
a:array[1..1000]of longint;
i,j,n:longint;
procedure sort(l,r:longint);
var
i,j,t,mid:longint;
begin
i:=l;
j:=r;
repeat
mid:=a[(l+r)div 2];
while a[i]mid do dec(j);
if ij;
if l

pascal 数字排序从小到大排序数学二小题四大洋的排序?从小到大数学（排序（从小到大）） Pascal题（用Turbo Pascal）数码排序 C语言四个数从小到大排序起泡法对10个数排序从小到大翻地浇水收获播种从小到大排序 {从小到大排序} 教师节、劳动节、妇女节、国庆节、儿童节从小到大排序:动物鸡禽类家禽 C语言ABC三个数从小到大排序三个数从小到大排序的JAVA程序