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.