gaoxin 2008-07-10 06:58:00
点我顶贴
收藏
删除
第4个点:
输出过长|用户输出数据超过标准输出两倍[标准输出1位|选手输出4位]
var m,n,k,i,j,x,y,xx,yy,max,xm,ym,t:longint；
a:array[1..20,1..20] of longint；
begin
readln(m,n,k)；
for i:=1 to m do for j:=1 to n do read(a[i,j])；
t:=0；
max:=0；
for i:=1 to m do for j:=1 to n do if a[i,j]>max then
begin
max:=a[i,j]；
x:=i；y:=j；
end；
t:=t+a[x,y]；
a[x,y]:=0；
k:=k-x-1；
while k>=x do
begin
max:=0；
for i:=1 to m do for j:=1 to n do if a[i,j]>max then
begin
max:=a[i,j]；
xm:=i；ym:=j；
end；
k:=k-abs(xm-x)-abs(ym-y)-1；
t:=t+a[xm,ym]；
xx:=a[xm,ym]；
a[xm,ym]:=0；
x:=xm；y:=ym；
end；
writeln(t-xx)；
end.
谁有第4个点的数据???