新手pascal简单题求救速度在线等
pascal吧
全部回复
仅看楼主
level 6
输入n个0到100之间的整数,由小到大排序输出,每行输出8个程序清单: program chu7_5; var i,j,k,n,x:integer;   b:array[0..100]of integer; begin  readln(n);  for i:=0 to 100 do b[i]:=0;  for i:=1 to n do   begin    readln(x);    b[x]:= ①    end;  ②  for i:=0 to 100 do   while ③ do    begin     write( ④ );     k:=k+1;     b[i]:=b[i]-1;     if ⑤ then writeln    end;  readln; end.
填的空是什么,还要详细思路
2013年09月23日 11点09分 1
level 14
2013年09月27日 12点09分 2
1