Như Quỳnh

cho một dãy số a1,a2,...an các số nguyên gồm n phần tử (2<n10 mũ 5;)-3200,ai<3200) yêu cầu: 
viết chương trình liệt kê các số nguyên tố có dãy số vừa nhập mn giúp em ạ :(

Kiều Vũ Linh
11 tháng 5 2022 lúc 11:08

Em ghi lại cho đúng cái đề nhé

Bình luận (0)
Nguyễn Lê Phước Thịnh
11 tháng 5 2022 lúc 13:13

uses crt;

var a:array[1..10000]of integer;

i,n,kt,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

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 kt:=1;

if kt=0 then write(a[i]:4);

end;

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
huynh chinh
Xem chi tiết
trần anh khoa
Xem chi tiết
Hello1234
Xem chi tiết
Noelle
Xem chi tiết
89654DAUUBUOIIIII956
Xem chi tiết
TRIẾT PHẠM
Xem chi tiết
Bảo Lê Nguyễn Vũ
Xem chi tiết
Lê Gia Huy
Xem chi tiết
Hello1234
Xem chi tiết