Prcedure sort;

 Var I,j:index; x:iten;

 Begin

  For i:=2 to n do

 Begin x:=a[1]; a[0]:=x;

J:=i-1;

 While x<a; do

Begin a[j+1]:=a[j]; j:=j-1 end;

A[j+1]:=x

End

End;

 

如题~

谢谢了

哪位高手知道啊~急~

AD:正辛烷气体检测仪、探测器、报警器

pascal

好象是

没错 是pascal了

pascal