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.