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/06/04 07:55:31
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]
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 高精度计算谁有讲解给一下
怎么答?快点快点给一百分一百分
求快速解答,给一百分一百分
pascal语言编程问题(free pascal求1—N中的素数的个数.(1
责任心的读后感 给一百分!
用free pascal编程:输入两个数,求他们的最大公因数和最小公倍数
谁有给一百分,必须符合题意
100分啊 一百分啊.给力
满分一百分,你能给我几分!
满分一百分能给多少分,
答出来给一百分,快点快点
第一个答出来的给一百分
回答详细点,我给一百分
好的再给加一百分
能帮我做两道数值分析题么,用c语言编程,先给一百分,每打完一个题,我就提高悬赏.
free pascal常见语句
求几道 初学 free pascal