var num,h,s:array[1..1000]of longint; i,j,n,t,m,k,sum,ans,x,y:longint;begin read(n,m,k); for i:=1 to n do for j:=1 to m do begin read(x); if x<>0 then begin inc(sum); num[sum]:=x; h[sum]:=i; s[sum]:=j; end; end; for i:=1 to sum-1 do for j:=i+1 to sum do if num[i]<num[j] then begin t:=num[i]; num[i]:=num[j]; num[j]:=t; t:=h[i]; h[i]:=h[j]; h[j]:=t; t:=s[i]; s[i]:=s[j]; s[j]:=t; end; x:=0; y:=s[1]; for i:=1 to sum do if k-(abs(h[i]-x)+abs(s[i]-y))-h[i]>0 then begin ans:=ans+num[i]; k:=k-(abs(h[i]-x)+abs(s[i]-y)); dec(k); x:=h[i]; y:=s[i]; end else break; write(ans);end.
