最佳调度问题

• 最佳调度问题
  Time Limit:10000MS  Memory Limit:65536K
  Total Submit:105 Accepted:40 
  Case Time Limit:1000MS 
  Description 
  假设有n个任务由k个并行工作的机器来完成。完成任务i需要的时间为Ti。试设计一个算法找出完成这n个任务的最佳调度，使得完成全部任务的时间最早。 
  算法设计：对任意给定的整数n和k，以及完成任务i需要的时间为Ti，i=1，2，3……n。计算完成这n个任务的最佳调度。
  Input 
  第一行有2个正整数n和k。第2行的n个正整数是完成n个任务需要的时间。
  Output 
  将计算的完成全部任务的最早时间
  Sample Input 
  7 3
  2 14 4 16 6 5 3
  Sample Output 
  17
  Source
  要一个排序，但不用快排，从大的往前搜。

• var
    i,j,k,n,m,max,min:longint;
    a,b:array[0..1000]of longint;
  procedure init;
  var
    i,j,k:longint;
  begin
    readln(n,m);
    for i:=1 to n do
      begin
        read(a[i]);
      end;
    for i:=1 to n-1 do
      for j:=i+1 to n do
        begin
          if a[i]<a[j] then
            begin
              a[0]:=a[i];
              a[i]:=a[j];
              a[j]:=a[0];
            end;
        end;
    min:=maxlongint;
  end;
  
  procedure aa(dep,max:longint);
  var
    i:longint;
  begin
    if dep>n then
      begin
        if max<min then
          min:=max;
        exit;
      end;
    if max>=min then exit;
    for i:=1 to m do
     begin
       inc(b[i],a[dep]);
       if b[i]>max then aa(dep+1,b[i])
        else aa(dep+1,max);
       dec(b[i],a[dep]);
     end;
  end;
  begin
    init;
    aa(1,0);
    writeln(min);
  end.