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.

Download