Array

Array
1s; 256M
1.1 题目描述
Alice 有一个数列ai。
但是她不喜欢这个数列，于是她决定随机交换其中两个数。
Alice 想知道，交换后的数列与原数列相同的数有多少个。请求出所有可能的
值。
1.2 输入格式
第一行一个正整数n，表示Alice 的数列的长度。
第二行n 个正整数，第i 个数表示ai，即交换前的数列的第i 项。
1.3 输出格式
一行若干个严格递增的正整数，用空格隔开，表示交换后的数列与原数列相
同的数的个数。
1.4 样例输入
32
3 3
1.5 样例输出
1 3
1.6 样例解释
交换后可能的数列有2 3 3, 3 2 3, 3 3 2，个数分别是3, 1, 1。
1.7 数据范围
对于100% 的数据，1 n 100; 1 ai 1000。
做法：显而易见的模拟，其实对于大部分的数据，讨论是否是输出n和n-2就好了（能对？）。。
代码如下

var
  f:array[0..1001] of boolean;
  b,a:array[0..1000] of longint;
  n,i,j,k,t,sum:longint;

begin
  assign(input,'array.in'); reset(input);
  assign(output,'array.out'); rewrite(output);
  readln(n);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n-1 do
    for j:=i+1 to n do
      begin
        b:=a;
        sum:=0;
        t:=b[i]; b[i]:=b[j]; b[j]:=t;
        for k:=1 to n do
          if a[k]=b[k] then inc(sum);
        f[sum]:=true;
      end;
  for i:=0 to n do
    if f[i] then write(i,' ');
  close(input); close(output);
end.