特长生模拟 Array（水）

1 Array

1s; 256M
1.1 题目描述
Alice 有一个数列ai。
但是她不喜欢这个数列，于是她决定随机交换其中两个数。
Alice 想知道，交换后的数列与原数列相同的数有多少个。请求出所有可能的
值。
1.2 输入格式
第一行一个正整数n，表示Alice 的数列的长度。
第二行n 个正整数，第i 个数表示ai，即交换前的数列的第i 项。
1.3 输出格式
一行若干个严格递增的正整数，用空格隔开，表示交换后的数列与原数列相
同的数的个数。

分析：。。。。。

代码

const
  maxn=100;
var
  a:array[0..maxn] of longint;
  f:array[0..maxn] of boolean;
  i,j,n: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 do
    for j:=i+1 to n do
      if a[i]=a[j] then f[n]:=true else f[n-2]:=true;
  for i:=0 to n do
    if f[i] then write(i,' ');
  close(input);close(output);
end.