用基本语句写一个算法,要求输入50革数,按从大到小的顺序输出。
来源:百度知道 编辑:UC知道 时间:2024/09/28 08:58:55
pascal选择法:
type
arr=array[1..50] of integer;
var
a:arr;i,t,p:integer;
begin
for i:=1 to 50 do readln(a[i]);
for p:=1 to 50 do
for i:=p to 50 do if a[p]<a[i] then begin t:=a[i];a[i]:=a[p];a[p]:=t;end;
for i:=1 to 50 do write(a[i],' ');
end.