Pagini recente » Cod sursa (job #2518701) | Cod sursa (job #920255) | Borderou de evaluare (job #133046) | Cod sursa (job #3241334) | Cod sursa (job #60833)
Cod sursa(job #60833)
const dx:array[1..4] of shortint=(0,1,0,-1);
dy:array[1..4] of shortint=(1,0,-1,0);
var a:array[0..151,0..151] of longint;
b:array[1..150*150,0..150*150] of longint;
cdx:array[1..150*150] of longint;
cdy:array[1..150*150] of longint;
n,i,j,k,l,m,o,p,q:longint;
begin
assign(input,'castel.in');
assign(output,'castel.out');
reset(input);
rewrite(output);
readln(m,n,k);
for i:=1 to m do
for j:=1 to n do
begin
read(a[i,j]);
p:=a[i,j];
q:=(i-1)*n+j;
inc(b[p,0]);
b[p,b[p,0]]:=q;
end;
o:=1;
p:=k mod n;
if k=0 then
begin
p:=n;
q:=k div n;
end
else q:=k div n +1;
close(input);
close(output);
end.