Cod sursa(job #60833)

Utilizator petrePajarcu Alexandru-Petrisor petre Data 17 mai 2007 07:25:44
Problema Castel Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.62 kb
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.