решить задачу в паскале

[fara0n]

На квадратной доске расставлены целые неотрицательные числа.
Черепашка, находящаяся в левом верхнем углу, мечтает попасть в правый
нижний. При этом она может переползать только в клетку справа или
снизу и хочет, чтобы сумма всех чисел, оказавшихся у нее на пути, была
бы минимальной. Определить эту сумму.

Comments

[t_gra]

Решается динамическим программированием.

[fara0n]

да ладно? ну нихрена себе . . . да вы, сударь, гений мои аплодисметны ! ! ! !
а теперь по существу:
получилось написать только на максимально колличество значений, на минимальное не прокатывает - считает по строкам.

[t_gra]

Вам ниже в комментах предлагают привести программу. Сделайте это, иначе помочь вам будет проблематично.

[fara0n]

да именно так, НО прогу считающую именно минимум написать не получаеться - считает сумму по строкам, а не по "движению".
а вот на максимум аналогичная задача - нормально получается.
мозг уже кипит не знаю что делать с ней.

[fara0n]

"program r;
uses crt;
{const n=5;}
var a:array [1..20,1..20] of longint;
B:array [0..20,0..20] of longint;
var i,j,n:integer;

begin clrscr;
readln (n);
writeln;
randomize;
for i:=1 to n do
for j:=1 to N do
a[i,j]:=random(11);
for i:=0 to N do
begin
B[i,0]:=0;
B[0,j]:=0
end;
for i:=1 to N do
for j:=1 to N do
if B[i-1,j]>B[i,j-1] then B[i,j]:=B[i-1,j]+A[i,j]
else B[i,j]:=B[i,j-1]+A[i,j];
writeln (b[n,n]);

writeln;
for i :=1 to n do begin
for j:= 1 to n do
write (a[i,j], ' ' );
writeln;
end;
writeln;
for i :=1 to n do begin
for j:= 1 to n do
write (b[i,j], ' ' );
writeln;
end;
end."

[fara0n]

хорошо, посмотрим, что получится.
спасибо

[kibermath]

чет не знаю как вам а мне кажеца что это будет сумма числа строк и столбцов этого самого поля =)
у меня короче не получаеться =)

[fara0n]

уже можно не волноваться . . .
курсач я сдал - надобность в задаче отпала ))