计算机编程，要源代码， piscal语言，输入4个整数abcd，从小到大排序输出
var
a:array[1..4] of integer;
i,j,t,len:integer;
begin
len:=4;
for i:=1 to len do
readln(a[i]);
for i:=1 to len-1 do
begin
for j:=i+1 to len do
if a[j]<a[i] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end;
for i:=1 to len do
Write(a[i]:6);
Writeln;
end.
上一篇：STL 源码剖析：sort
下一篇：求求代码大神帮帮孩子吧
多重随机标签