Bài 4 Số nguyên tố (5,0 điểm)
Cho dãy số nguyên dương gồm n phần tử. Em hãy lập trình đếm và tính tổng các phần tử là số nguyên tố trong dãy.
INPUT: Hiện dòng 1 số phần tử trong mảng, hiện dòng 2 các phần tử
OUTPUT: Hiện số phần tử là số nguyên tố; Tổng các số nguyên tố đó
TEST:
INPUT | OUTPUT |
5 5 12 2 11 7 | 4 25 |
5 5 1 2 4 8 | 2 7 |
|
|
uses crt;
var i,n,x,dem,t,kt,j:integer;
a:array[1..100]of integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
t:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then
begin
kt:=1;
end;
if kt=0 then
begin
dem:=dem+1;
t:=t+a[i];
end;
end;
writeln(dem);
writeln(t);
readln;
end.
