Question

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

 

Answer 1

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.