5.18 特长生模拟题 Array

题目

Alice 有一个数列ai。
但是她不喜欢这个数列，于是她决定随机交换其中两个数。
Alice 想知道，交换后的数列与原数列相同的数有多少个。请求出所有可能的值。

题解

···········································
简单模拟
只要想到答案只有n和n-2两种情况，就很简单（）
如果有两个数及以上相同，那就有n-2的情况
如果有两个数及以上不相同，那就有n的情况

代码

var
n,i,j,k:longint;
b:array[1..1000]of longint;
begin
assign(input,’array.in’);
assign(output,’array.out’);
reset(input);rewrite(output);
readln(n);
for i:=1 to n do
begin
read(j);
inc(b[j]);
if b[j]>1 then inc(k);
end;
if n-k>=2 then write(n-2);
if (n-k>=2)and(k>0) then write(’ ‘);
if k>0 then writeln(n);
close(input);close(output);
end.