Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
sahaphap wongratch

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

 

 

 

Nguyễn Lê Phước Thịnh
3 tháng 2 2023 lúc 11:25

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.


Các câu hỏi tương tự
Nguyễn Ngọc
Xem chi tiết
Minh Duy
Xem chi tiết
Lala
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Vochehoang
Xem chi tiết
anh vương
Xem chi tiết
Lương Trần Phương Linh
Xem chi tiết
Vochehoang
Xem chi tiết
Phạm Công Ngọc Quốc
Xem chi tiết