计算素数个数【题目描述】 一个数组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]中有几个素

Question

计算素数个数
【题目描述】
一个数组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 5\x054
【输入输出样例2】
prime.in \x05prime.out
5
4 2 6 11 9 \x050

Answer 1

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]:=a[j]; a[j]:=c; end;
s:=0;
for i:=1 to n-1 do b[i]:=a[i]+a[i+1];
for i:=1 to n-1 do
begin
f:=true;
if b[i]