jzoj 1355. 【2011.12.24普及模拟】珍珠分对

最新推荐文章于 2020-03-21 18:56:10 发布

原创最新推荐文章于 2020-03-21 18:56:10 发布 · 425 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

水法

本文介绍了一道关于珍珠配对的算法问题，任务是将偶数颗不同颜色的珍珠分成若干对，确保每对珍珠颜色不同。文章提供了具体的输入输出格式及样例解释。

题目描述

作为生日礼物,BESSIE得到了N (2 <= N <= 100,000;N%2 == 0)颗(假?)珍珠, 每颗珍珠的颜色为C种颜色之一 (1 <= C <= N).BESSIE发现N是一个偶数,她想把所有珍珠分成N/2对,使得每对的两颗珍珠的颜色都不同.BESSIE知道这样一个分配在给定数据里都是可能的,请帮助她找到这样一个分配. 如果有多个解,任意一个,输出任意一个.

输入

第1行: 两个数, N 和 C

第 2..C + 1 行: 第i+1行含有一个数,C_i, 颜色为i的珍珠的数目.

输出

第 1..N/2行: 第i行包含两个数a_i和b_i. 对应于一对颜色分别为a_i和b_i的珍珠.

样例输入

样例输出

数据范围限制

提示

【样例说明】

输入解释:共8颗珍珠,2颗为颜色I,2颗为颜色II,4颗为颜色III.

输出解释:BESSIE把每颗颜色为III的珍珠和一颗颜色为I/II的组成一对.

由于数据太水，把它展开后，从中间输出就好

var
 n,c,i,j,k:longint;
 a,b: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(a[i]);
    for j:=1 to a[i] do
     begin
      inc(k);
      b[k]:=i;
    end;
  end;
 for i:=1 to k div 2 do
  writeln(b[i],' ',b[i+k div 2]);
end.