不是VIP会员,不能显示答案

题目解答

题目:
(插入排序)下面的程序的功能是输入n及n个整数,用插入排序的方法,将n个整数按从小到大的顺序输出,要求每行输出10个整数(最后一行可以不足10个)。
请将程序补充完整。
Program xx401;
var
  a:array[1..1000] of integer;
  n,i,x,k:integer;
begin
  readln(n);
  read( a[1] );
  for i:=2 to n do begin
    k:=i;
    read(x);
    while (k>1) and ( a[k-1]>x  ) do begin
      a[k]:=  a[k-1] ;
      dec(k);
    end;
    a[k]:=x;
  end;
  for i:=1 to n do begin
    write(a[i]:4);
    if  i mod 10=0   then writeln
  end;
  writeln
end.  
考点:
分析:
解答:
评论:
老师: