I am not Liar
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
const max=100;
var f:text;
n,m,i,j:byte;
mx,town:array[1..max,1..max]of word;
procedure go(i,j:byte);
begin
if(i<m)and(town[i,j]+mx[i+1,j]<town[i+1,j])then
begin
town[i+1,j]:=town[i,j]+mx[i+1,j];
go(i+1,j);
end;
if(j<n)and(town[i,j]+mx[i,j+1]<town[i,j+1])then
begin
town[i,j+1]:=town[i,j]+mx[i,j+1];
go(i,j+1);
end;
end;
begin
assign(f,'input.txt');
reset(f);
readln(f,m,n);
for i:=1 to m do
for j:=1 to n do read(f,mx[i,j]);
close(f);
fillchar(town,sizeof(town),255);
town[1,1]:=mx[1,1];
go(1,1);
assign(output,'output.txt');
rewrite(output);
writeln(town[m,n]);
close(output);
end.
|
