Question

在PASCAL中输入三个数由大到小排列出来如和编程？

最好简易，只要程序

Answer 1

var a,b,c,tmp:longint;
begin
readln(a,b,c);
if b>a then begin tmp:=b;b:=a;a:=tmp;end;
if c>b then begin tmp:=c;c:=b;b:=tmp;end;
if c>a then begin tmp:=c;c:=a;a:=tmp;end;
writeln(a,b,c);
end.
相当于冒泡排序