CINEMA - Rạp chiếu phim
Tác giả: RR
Ngôn ngữ: Pascal
var
i,j,now,k,m,n,u:longint;
a:array[1..1011,1..1011] of longint;
r:array[1..1000111] of longint;
procedure paint(i,j:longint);
begin
inc(now);
if now>r[u] then
begin
now:=1;
inc(u);
end;
if u>k then a[i,j]:=0 else a[i,j]:=u;
end;
begin
read(m,n,k);
for k:=1 to k do read(r[k]);
r[k+1]:=1000111;
u:=1; now:=0;
for i:=1 to m do
if i and 1=1 then
for j:=1 to n do paint(i,j)
else for j:=n downto 1 do paint(i,j);
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
end.