CINEMA - Rạp chiếu phim
Tác giả: flashmt
Ngôn ngữ: Pascal
const fi='';
fo='';
maxn=1010;
p:array[0..1] of longint=(-1,1);
var n,m,k,x,y,t,i:longint;
a:array[1..maxn,1..maxn] of longint;
begin
assign(input,fi);
reset(input);
readln(m,n);
readln(k);
x:=1; y:=1;
for i:=1 to k do
begin
read(t);
repeat
repeat
a[x,y]:=i;
y:=y+p[x mod 2];
t:=t-1;
until (t=0) or (y>n) or (y<1);
if (y>n) or (y<1) then
begin
x:=x+1;
if odd(x) then y:=1 else y:=n;
end;
until t=0;
end;
close(input);
assign(output,fo);
rewrite(output);
for i:=1 to m do
begin
for k:=1 to n do
write(a[i,k],' ');
writeln;
end;
close(output);
end.