Question

viết chương trình và thuật toán nhập 1 dãy gồm n phần tử kiểu số nguyên. In ra các số nguyên tố có trong dãy

Giúp e vs ạ ! E đg cần gấp !

Answer 1

uses crt;

var a:array[1..100]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.