CNMARBLE - Trò chơi với những viên bi

Tác giả: RR

Ngôn ngữ: Pascal

var
  x,i,j,n,m,s:longint;
  u,a:array[1..500111] of longint;
begin
  read(n,m);
  for i:=1 to n do read(u[i]);

  s:=0;
  for i:=1 to n do
    for j:=1 to u[i] do
      begin
        inc(s);
        a[s]:=i;
      end;

  x:=s div m;
  for i:=1 to x do
    begin
      for j:=1 to m do
        write(a[i+(j-1)*x],' ');
      writeln;
    end;
end.

Download