free pascal编程,给一百分!给出n个数,你要将这n个数从小到大排序输出,源程序如下,

来源：学生作业帮编辑：百度作业网作业帮分类：综合作业时间：2024/05/16 07:37:19

free pascal编程,给一百分!给出n个数,你要将这n个数从小到大排序输出,源程序如下,
var
a:array[1..10] of longint;
i,j,t,n:longint;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if a[i]>a[j] then
begin
t:=a[j]; a[j]:=a[i]; a[i]:=t;
end;
end;
for i:=1 to n do
writeln(a[i]);
end.下面有段话,其实该程序还可以进一步优化,再为第i位选择一个最大的数时,可以在[i,n]范围内先选好最大的数,最后进行一次交换,这样减少了很多交换次数.,什么在为第i为选择一个最大得数啊?还再[i,n]先选好,.

var
a:array[1..10] of longint;
i,j,t,n:longint;
min:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do begin
min:=i;
for j:=i+1 to n do if a[j]

用pascal语言编程：输出n(n c语言数组编程,输入n个整数,将这n个数按绝对值由大到小排序输出 pascal,从n个数中选择m个数,输出每一种组合,并统计总的个数急求free pascal高手编程：蛇形填数,在n*n的格子中,按如下方式填数. Pascal编程：读入N个数,打印其中的最大数及其位置号 pascal语言:输入n个数,并输出最大的数和最小的数求一pascal程序,给出一个整数n,其中n小于等于10000,请统计n的因数的个数. pascal编程给出一个n,求前n个奇数的总和输入一行,一个整数n 输出一行,表示总和 pascal中输入n个一位数再输入s,用n个数组成n位数（数不可重复）,从大到小排列后,输出第s个数 pascal题：求N个数的和,给出一个正整数N,可求出从1开始的这N个数的全部各个数位上的数字之和. pascal编程输入n个整数,找出最大数所在的位置,并将它与第一个数对调给出一个整数n,让你判断n是否是素数,如果n是素数,则输出 yes 否则输出 no 用pascal语言做题