题44:编程输入10个正整数,然后自动按从大到小的顺序输出。
Input
输入只有一行,包括10整数.
Output
输出只有一行,包括10个整数。
Sample Input
1 2 3 4 5 7 6 8 9 10
Sample Output
10 9 8 7 6 5 4 3 2 1
提示:数组与排序,注意输出最后一个空格要考虑。处理方法最后一个单独输出。
program ex_44;
var a:array[1..10] of integer;
i,j,t:integer;
begin
for i:=1 to 10 do read(a[i]);
for i:=1 to 9 do
for j:=i+1 to 10 do
if a[i]<a[j] then begin t:=a[i];a[i]:=a[j];a[j]:=t; end;
for i:=1 to 9 do write(a[i],' ');
write(a[10]);
end.
联系客服