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.

Download