一道Free pascal题（题目在问题补充里）

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/23 18:52:35

一道Free pascal题（题目在问题补充里）
输入十个正整数，把这十个数按由大到小的顺序排列。请用两种方法，分别为：选择排序和冒泡排序。命名方式：21.pas和22.pas。

选择排序主件：Begin
for I := 1 To N - 1 Do //做N - 1趟选择排序
begin
K := I;
For J := I + 1 To N Do //在当前无序区R[I..N]中选最小的元素R[K]
Begin
If R[J] < R[K] Then K := J
end;
If K I Then //交换R[I]和R[K]
begin
Temp := R[I];
R[I] := R[K];
R[K] := Temp;
end;
end；
End;
冒泡排序主件：
begin
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]

一道Free Pascal题目一道Free Pascal的题目一道数学题,题目在问题补充里,请看问题补充又一道free pascal题请教一道free pascal题：问一道Free Pascal的题目. 求一道free pascal题目的源代码求一道free pascal题目源代码一道数学题(题目在问题补充说明里) 一道简单的free pascal题目,各位free pascal大师解答一下吧. 一道Free Pascal 一道关于角的数学题（题目在问题补充里）