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.

Download