201711月04日普及组 Array

Description

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

Input

第一行一个正整数 n，表示 Alice 的数列的长度。
第二行 n 个正整数，第 i 个数表示 ai ，即交换前的数列的第 i 项。

Output

一行若干个严格递增的正整数，用空格隔开，表示交换后的数列与原数列相同的数的个数。

Sample Input

3
2 3 3
Sample Output

1 3

交换后可能的数列有 2 3 3, 3 2 3, 3 3 2，个数分别是 3, 1, 1。
Hint

对于 100% 的数据，1 ≤ n ≤ 100,1 ≤ a i ≤ 1000。

分析
对于任意数列，答案最多只有两个。
每次交换都有两种情况

第一种情况：交换的两个数相等。交换后，该数列等于原数列，答案为n。

第二种情况：交换的两个数不相等。交换后，则只有2个数不等，答案为n-2。

程序：

var
a:array[0..100] of longint;
f:array[0..100] of boolean;
i,j,n:longint;beginassign(input,'array.in');reset(input);assign(output,'array.out');rewrite(output);readln(n);for i:=1 to n doread(a[i]);for i:=1 to n dofor j:=i+1 to n doif a[i]=a[j] then f[n]:=true else f[n-2]:=true;for i:=0 to n doif f[i] then write(i,' ');close(input);close(output);
end.

转载于:https://www.cnblogs.com/YYC-0304/p/9500028.html

201711月04日普及组 Array相关推荐

2017年11月04日普及组 Biotech
Description Bob 发现了一群有趣的细胞. 这群细胞排列成一个 n × m 的矩阵.每个细胞有两个状态:放电状态和平静状态.它们每秒钟都会按以下的规则转换状态: 首先我们定义,一个细胞的 ...
2017年11月01日普及组 I Will Like Matrix!
Description 在一个 n ∗ m 的矩阵 A 的所有位置中分别填入 0 或 1,要求填入的数必须满足 Ai,j ≤ Ai,j+1 且 A i,j ≤ A i+1,j .询问一共有多少种不同的 ...
2017年11月01日普及组 I Like Matrix!
Description 给定 k 种移动方式:从 (i,j) 移动到 (i + xk ,j + yk )(xk ,yk > 0).询问在一个 n ∗ m 的矩阵中,从 (1,1) 出发,可以到达 ...
2017年11月01日普及组 I Liked Matrix!
Description 给定一个 n ∗ m 的矩阵 A,对其进行 q 次询问:以 (x1,y1) 为左上角,(x2,y2) 为右下角的子矩阵中,所有元素的最大值. Input 第一行包含三个整数 ...
2017年10月21日普及组简单单词
分析直接依题意枚举,注意:每个单词的前缀长度并不一定相等. 程序: var n,i,j,l,k,bz:longint; a:array[0..100]of string; s:array[0..10 ...
2017年10月21日普及组排名
程序: var n,i,j,x,z,w:longint; a,b,c,d,p,y:array[0..200]of longint; beginassign(input,'sort.in');reset ...
2017年10月18日普及组文件名排序
程序: var l,n,i,j,p:longint; a,b,c,s:array[1..1000]of string; w:string; beginreadln(n);for i:=1 to n d ...
2017年10月08日普及组蜡烛
程序: var n,i,j,t,k,sum:longint; a:array[0..10000] of longint; beginassign(input,'lazhu.in');reset(inp ...
2017年10月08日普及组世界语
分析水题一道,提交的时候把文件夹的名字打错了,结果没了100分-- 程序 const a:array[1..10]of string=('unu','du','tri','kvar','kvin', ...

201711月04日普及组 Array

201711月04日普及组 Array相关推荐

最新文章

热门文章