1. 输入n个0到100之间的整数，由小到大排序输出，每行输出8个
程序清单：
program chu1;
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]:= b[x]+1;
end;
k:=0;
for i:=0 to 100 do
while b[i]>0 do
begin
write( i:4 )；
k:=k+1;
b[i]:=b[i]-1;
if k mod 8=0 then writeln;
end;
readln;
end.
2. 在A，B两个城市之间设有N个路站(如下图中的S1，且N<100)，城市与路站之间、路站和路站之间各有若干条路段(各路段数≤20，且每条路段上的距离均为一个整数)。A，B的一条通路是指：从A出发，可经过任一路段到达S1，再从S1出发经过任一路段，…最后到达B。通路上路段距离之和称为通路距离(最大距离≤1000)。当所有的路段距离给出之后，求出所有不同距离的通路个数(相同距离仅记一次)。
例如：下图所示是当N=1时的情况：从A到B的通路条数为6，但因其中通路5+5=4+6，所以满足条件的不同距离的通路条数为5。
算法说明：本题采用穷举算法。
数据结构：N：记录A，B间路站的个数
数组D[I，0]记录第I-1到第I路站间路段的个数
D[I，1]，D[I，2]，…记录每个路段距离
数组G记录可取到的距离
程序清单：
program chu2;
var i,j,n,s:integer;
b:array[0..100]of integer;
d:array[0..100,0..20]of integer;
g:array[0..1000]of 0..1;
begin
readln(n);
for i:=1 to n+1 do
begin
readln(d[i,0]);
for j:=1 to d[i,0] do readln(d[i,j]);
end;
d[0,0]:=1;
for i:=1 to n+1 do b[i]:=1;
b[0]:=0;
for i:=0 to 1000 do g[i]:=0;
while b[0]=0 do
begin
s:=0;
for i:=1 to n+1 do
s:=s+d[i,b[i]];
g[s]:=1;j:=n+1;
while b[j]=d[j,0] do j:=j-1;
b[j]:=b[j]+1;
for i:=j+1 to n+1 do b[i]:=1;
end;
for i:=1 to 1000 do
s:=s+g[i] ;
writeln(s);
readln;
end.