我认为,语文整一个垃圾!不如学编程,比如,语文老师看得懂下面的东东吗?
var tianpan,tian:array[0..20,1..20]of integer;
zong,m,n,k,i1,j1,i,j,l:integer;
procedure find;
var i,j,s1,s2:integer;
begin
s1:=1;s2:=1;
for i:= 1 to m do
for j:= 1 to n do
if (tianpan[i,j]0)and(tian[i,j]>tian[s1,s2])then begin s1:=i;s2:=j;end;
i1:=s1;j1:=s2;
end;
begin
readln(m,n,k);
for i:= 1 to m do
begin
for j:= 1 to n do
begin tianpan[i,j]:=1;read(tian[i,j]);end;
readln;
end;
find;j:=j1;i:=i1;
k:=k-j;zong:=0;
zong:=zong+tian[i,j];tianpan[i,j]:=0;
find;
while (abs(j1-j)+abs(i1-i)+1+j1
