USES CRT; BEGIN P

Bài 2:

uses crt;

begin

p:=a[i,j-1];

d:=i;

p:=maxint;

const maxmn = 100;

end;

fi = 'bt.inp';

for i:=1 to m do

fo = 'bt.out';

if a[i+1,j-1]< p then

if a[i,n]< p then

begin

var a,t

begin

d:=i;

:array[0..maxmn,0..maxmn] of

p:=a[i+1,j-1];

p:=a[1,n];

integer;

d:=i+1;

end;

kq :array[1..maxmn] of byte;

j:=n;

min:=d;

m,n :byte;

end;

procedure doc_file;

i:=d;

procedure tao_nhan;

kq[j]:=d;

var f :text;

assign(f,fo); rewrite(f);

i,j:byte;

var i,j,d : byte;

writeln(f,a[i,j]);

for j:= 0 to n do a[0,j]:=

while j>0 do

assign(f,fi); reset(f);

readln(f,m,n);

begin

maxint;

for j:= 0 to n do

i:=t[i,j];

a[m+1,j]:=maxint;

j:=j-1;

for j:=1 to n do

kq[j]:=i;

fillchar(t,sizeof(t),0);

end;

read(f,a[i,j]);

for j:=2 to n do

for j:=1 to n do write(f,kq[j],'

readln(f);

for i:=1 to m do

');

close(f);

d := min(i,j);

close(f);

a[i,j]:= a[d,j-1]+a[i,j];

function min(i,j:byte):byte;

BEGIN

t[i,j]:=d;

var p: integer; d: byte;

doc_file;

tao_nhan;

tim_duong;

procedure tim_duong;

p:=a[i-1,j-1];

var i,j,d:byte;

d:=i-1;

END.

if a[i,j-1]< p then

p :integer;

f :text;