作业帮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]>
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/17 06:11:59
![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]>](/uploads/image/z/13922018-26-8.jpg?t=free+pascal%E7%BC%96%E7%A8%8B%2C%E7%BB%99%E4%B8%80%E7%99%BE%E5%88%86%21%E7%BB%99%E5%87%BAn%E4%B8%AA%E6%95%B0%2C%E4%BD%A0%E8%A6%81%E5%B0%86%E8%BF%99n%E4%B8%AA%E6%95%B0%E4%BB%8E%E5%B0%8F%E5%88%B0%E5%A4%A7%E6%8E%92%E5%BA%8F%E8%BE%93%E5%87%BA%2C%E6%BA%90%E7%A8%8B%E5%BA%8F%E5%A6%82%E4%B8%8B%2Cvar+a%3Aarray%5B1..10%5D+of+longint%3B+i%2Cj%2Ct%2Cn%3Alongint%3Bbegin+readln%28n%29%3B+for+i%3A%3D1+to+n+do+read%28a%5Bi%5D%29%3B+for+i%3A%3D1+to+n-1+do+for+j%3A%3Di%2B1+to+n+do+begin+if+a%5Bi%5D%3E)
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]>
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]先选好,.
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]>
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]