计算素数个数

题目

计算素数个数
【题目描述】
一个数组a[0]到a[n-1]存放有n个正整数,其中2≤n≤1000.先将a数组中的n个数从小到大排序,
再计算a数组相邻两数相加a[0]+a[1],a[1]+a[2],a[2]+a[3],……,a[n-2]+a[n-1]中有几个素数.例如：n=8
a数组为 3,2,9,8,10,5,6,5
a数组从小到大排序后为：2,3,5,5,6,8,9,10
a数组相邻两数相加后数：5,8,10,11,14,17,19
其中有4个素数（5,11,17,19）.
【输入】
输入文件prime.in包含n+1个正整数,第1个是整数n,后面是n个正整数.
【输出】
输出文件prime.out包含一个整数.
【输入输出样例1】
prime.in x05prime.out
8
3 2 9 8 10 5 6 5x054
【输入输出样例2】
prime.in x05prime.out
5
4 2 6 11 9 x050

答案

var a,b:array[1..1000]of longint;n,i,j,s,c:longint; f:boolean;begin 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 begin c:=a[i]; a[i]:...