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

Tác giả: flashmt

Ngôn ngữ: Pascal

var i,n,s,k,m,x,j:longint;
    a:array[1..500000] of longint;

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

Download