背包问题的变种，把他想成背包问题做，用贪心做

MS不是动规吧，是网络流吧。。~~~
图：       ------s-------
          |      |      |            
          1      2      3             
              .......                     
          4      5      6
          |      |      |
          -------t-------                                      
图画的比较的恶劣~~~~~~凑合吧
解释：123表示人，456表示题目。途中的“……”1到6这6个点之间在图中每一上一下两个点之间连两个点。其中权值1为相应人编相应题目的难度值，权值2为容量（可走次数）。s为源点，t为汇点。从s到123、从456到t权值1（流量）为无限，“……”中的边权值1为，相应人编相应题目的难度值；所有边的权值2为1。所以此题转化为求图中的最大流（对权值2而言）。
hoho~~~此题顺利转型！用一次增广路就OK了。。囍

晕，我突然觉得自己表达很差~~~要：@@@恶补@@@

再次归来：
program work;
const maxn=100;
type node1=record
  w,f,c:integer
  end;
type node2=record
  value:integer;
  fa:integer;
 end;
var a:array[1..maxn+2,1..maxn+2] of node1;
  best:array[1..maxn+2] of node2;
  n,maxwork,s,t:integer;
procedure init;
var i,j:integer;
begin
 readln(n);
 fillchar(a,sizeof(a),0);
 for i:=1 to n do
  for j:=n+1 to 2*n do
   begin
   read(a[i,j].w);
   a[i,j].c:=1;
   a[j,i].w:=-a[i,j].w;
   end;
 s:=2*n+1;
 t:=2*n+2;
 for i:=1 to n do
  begin
   a[s,i].c:=1;
   a[n+i,t].c:=1;
  end;
 maxwork:=0;
 end;
function find:boolean;
var i,j:integer;
quit:boolean;
begin
 fillchar(best,sizeof(best),0);
 best[s].value:=1;
 repeat
  quit:=true;
  for i:=1 to 2*n+2 do
     if best[i].value>0 then
    for j:=1 to 2*n+2 do
     if (a[i,j].f<a[i,j].c) then
      if best[i].value+a[i,j].w>best[j].value then
         begin
         best[j].value:=best[i].value+a[i,j].w;
         best[j].fa:=i;
         quit:=false;
         end;
until quit;
if best[t].value>1 then find:=true else find:=false;
end;
procedure add;
var i,j:integer;
begin
 i:=t;
 while i<>s do
  begin
   j:=best[i].fa;
   inc(a[j,i].f);
   a[i,j].f:=-a[j,i].f;
   i:=j
  end;
  inc(maxwork,best[t].value-1);
end;
begin
init;
while find do add;
writeln(maxwork);
end.
另：可能有些变量不同~~~~不过差不多吧

嗯,说的没错,这种题一般用最大流做

MS  PKU上有原题。。

n较小，应该可以搜索吧！

网络流不会，只有搜索解：
program xuanbasai;
var
  a:array[1..20,1..20]of longint;
  b:array[1..20]of boolean;
  i,j,n,max:longint;
procedure find( x,y:longint);
var i:longint;
begin
   if x=n+1 then begin  if y>max then max:=y; end
            else begin
              for i:=1 to n do if b[i] then begin
                b[i]:=false;
                find(x+1,y+a[x,i]);
                b[i]:=true;
              end;
            end;
end;

begin
   readln(n);
   for i:=1 to n do begin
     for j:=1 to n do read(a[i,j]);
     readln;
   end;
   fillchar(b,sizeof(b),true);
   for j:=1 to n do begin
     b[i]:=false;
     find(2,a[1,i]);
     b[i]:=true;
   end;
   writeln(max);
   readln;
end.