Question

  Giúp mình câu 29 làm theo kiểu mảng giúp mình

Answer 1

29: 

uses crt;

var n,i,j,kt:integer;

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