题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. |
|