Program BTT; Uses crt; Var A:array[1..10000] of longint; i,n: longint;
Function ngto(a:longint):boolean; Var i: longint; Begin If a<2 then exit(false); For i:=2 to a div 2 do If a mod i = 0 then exit(false); exit(true); End;
Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End;
For i:=1 to n do If ngto(A[i]) then Begin Write('A[',i,'] = ',A[i]); Writeln; End; Readln End.
program bai_giai; uses crt; var A:array[1..10000] of integer; n,i,d:integer; function ktnt(k:integer):integer; var r:integer; begin ktnt:=false; if k<2 then exit; for r:=2 to trunc(sqrt(k)) do if k mod r=0 then exit; exit(true); end; BEGIN clrscr; readln(n); d:=0; for i:=1 to n do if ktnt(A[i]) then begin write(A[i],' '); d:=d+1; end; if d=0 then write('Khong co so duong la nguyen to') else begin write('Xuat hien lan luot tai: '); for i:=1 to n do if ktnt(A[i]) then write(i,' '); end; readln; end.
