матрицы, нахождение в матрице подматрицы Опции

[ted]

Помогите решить задачу, очень надо.
Дана матрица а(m/n). Найдите в ней прямоугольную подматрицу, сумма элементов которой максимальна. Задачу решить с помощью рекурсии.

[volvo]

Рекурсивно - вот так, например:

const
  max_rows = 3; max_cols = 3;
type
  tarr = array[1 .. max_rows, 1 .. max_cols] of integer;

procedure print(const arr: tarr; si, sj, fi, fj: integer);
var i, j: integer;
begin
  for i := si to fi do begin
    for j := sj to fj do write(arr[i, j]:4);
    writeln;
  end;
end;

procedure run(const arr: tarr; var st_i, st_j, fn_i, fn_j: integer);

  var
    max_sum: integer;

  procedure solve(si, sj, fi, fj: integer);

    procedure check_sum;
    var i, j, s: integer;
    begin
      s := 0;
      for i := si to fi do
        for j := sj to fj do s := s + arr[i, j];
      if s > max_sum then begin
        st_i := si; st_j := sj; fn_i := fi; fn_j := fj;
        max_sum := s;
      end;
    end;

  begin
    if (si > max_cols) or (sj > max_rows) or
       (fi > max_cols) or (fj > max_rows) then exit;
    check_sum;

    solve(si, sj, fi, fj + 1);
    solve(si, sj, fi + 1, fj);
    solve(si, sj + 1, fi, fj);
    solve(si + 1, sj, fi, fj);
  end;

begin
  max_sum := -maxint;
  solve(1, 1, 1, 1);
end;

const
  arr: tarr = (
    (-1, -2, 3),
    (-6,  2, 23),
    (-5,  7, 8)
  );

var
  st_i, st_j, fn_i, fn_j: integer;

begin
  run(arr, st_i, st_j, fn_i, fn_j);
  print(arr, st_i, st_j, fn_i, fn_j);
end.