CINEMA - Rạp chiếu phim
Tác giả: khuc_tuan
Ngôn ngữ: Pascal
//{$mode delphi}
{$APPTYPE CONSOLE}
{$R+,Q+,S+}
uses
SysUtils;
var
j, h, z, i, k, m, n, ci, cj : integer;
a : array[1..1000,1..1000] of integer;
begin
read(m,n);
read(k);
ci := 1;
cj := 1;
h := 1;
for i:=1 to k do
begin
read(z);
for j:=1 to z do
begin
a[ci,cj] := i;
inc(cj,h);
if cj<1 then
begin
inc(ci);
cj := 1;
h := 1;
end
else if cj>n then
begin
inc(ci);
cj := n;
h := -1;
end;
end;
end;
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j],' ');
writeln;
end;
end.