急
參考答案:const n=10;
var
a:array[1..n] 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 10 do write(a[i],' ');
writeln;
readln;
end.