самый дешевый путь

[FPaul]

program test;

const
  N = 3;
  M = 5;
type
  TMatrix = array[1..N, 1..M] of integer;

  function Min(a, b: integer): integer;
  begin
    if a < b then
      Min := a
    else
      Min := b;
  end;

var
  Map:  TMatrix = ((0, 0, 0, 0, 0), (2, 6, 1, 1, 10), (3, 4, 1, 1, 0));
var
  k, i: integer;
begin
  for k := 1 to N do
  begin
    for i := 1 to M do
      Write(Map[k, i]: 3);
    writeln;
  end;
  {1-й проход отдельно, т.к. нет левой и верхней границы}
  for i := 2 to M do
    Map[1, i] := Map[1, i] + Map[1, i - 1];
  for i := 2 to N do
    Map[i, 1] := Map[i, 1] + Map[i - 1, 1];
  {2-й и последующие проходы}
  for k := 2 to Min(M, N) do
  begin
    for i := k to M do
      Map[k, i] := Min(Map[k - 1, i], Map[k, i - 1]) + Map[k, i];
    for i := k + 1 to N do
      Map[i, k] := Min(Map[i, k - 1], Map[i - 1, k]) + Map[i, k];
  end;
  {результат}
  writeln(Map[N, M]);
  for k := 1 to N do
  begin
    for i := 1 to M do
      Write(Map[k, i]: 3);
    writeln;
  end;
end.

[Croessmah]

FPaul, а, Вы просто как-то по-своему описали алгоритм )))

[8Observer8]

Я не уверен, но может здесь можно приспособить A*?

Поиск A* (произносится «А звезда» или «А стар», от англ. A star) — в информатике и математике, алгоритм поиска по первому наилучшему совпадению на графе, который находит маршрут с наименьшей стоимостью от одной вершины (начальной) к другой (целевой, конечной).

[Croessmah]

8Observer8, конечно можно.