Question

viết chương trình sử dụng biến mảng nhập vào một dãy số nguyên gồm n phần tử. sau đó in ra màn hình các số nguyên tố

Answer 1

program Project1;
uses crt;
var
a:array[1..100] of integer;
n, i:integer;
begin
clrscr;
write('Nhap vao so phan tu co trong day:='); readln(n);
for i:=1 to n do
begin
write('Nhap vao phan tu thu ',i,' :='); readln(A[i]);
end;
for i:=1 to n do
writeln(A[i]);
readln;
end.

Answer 2

Lời giải :

program hotrotinhoc ;

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

i,n : integer ;

function kt (n: integer) : boolean;

var i : integer ;

begin

kt:=true ;

for i:= 2 to trunc(sqrt(n)) do

if n mod i=0 then kt:=false ;

end;

begin

write('Nhap n='); readln(n);

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

write('Cac so nguyen to trong mang la :');

for i:= 1 to n do

if (a[i]>=2) and (kt(a[i])) then write(a[i],' ');

readln

end.