记录编号 453173 评测结果 WWWWWWWWWW
题目名称 [USACO Mar08] 珍珠分对 最终得分 0
用户昵称 GravatarHale 是否通过 未通过
代码语言 Pascal 运行时间 0.000 s
提交时间 2017-09-20 22:34:11 内存使用 0.00 MiB
显示代码纯文本
var
  n,c,i,j,k,tmp:longint;
  pearl:array [1..100000] of longint;

begin
  assign(input,'ppairing.in');
  reset(input);
  assign(output,'ppairing.out');
  rewrite(output);
  readln(n,c);
  for i:=1 to c do
  begin
    readln(tmp);
    for j:=k+1 to k+tmp do pearl[j]:=i;
    inc(k,tmp);
  end;
  for i:=1 to n div 2 do
    writeln(pearl[i],' ',pearl[i+n div 2]);
  close(input);
  close(output);
end.