[r]
(1)program So_nguyen_to; uses crt; var a: array[0 50] of integer; i,n: integer; begin clrscr; writeln(' nhap so phan tu:'); readln(n); for i:=1 to n begin Writeln(' nhap phan tu a[',i,']= '); readln(a[i]); end; for i:=1 to n begin if (( a[i] > 7) and( (a[i] mod =0) or(a[i] mod =0) or(a[i] mod =0) or(a[i] mod =0) )) then Writeln('Phan tu a[',i,']= ',a[i],' Khong phai la so NT') else if (( a[i] > 3) and ((a[i] mod =0) or(a[i] mod =0))) then Writeln('Phan tu a[',i,']= ',a[i],' Khong phai la so NT') else Writeln('Phan tu a[',i,']= ',a[i],' la so NT'); end; readln; End Chay thu: Nhap so phan tu: n=8 nhap phan tu a[1]= nhap phan tu a[2]= nhap phan tu a[3]= nhap phan tu a[4]= nhap phan tu a[5]= nhap phan tu a[6]= 12 nhap phan tu a[7]= nhap phan tu a[8]= 49 Phan tu a[1]= la so NT Phan tu a[2]= la so NT Phan tu a[3]= la so NT Phan tu a[4]= Khong phai la so NT Phan tu a[5]= la so NT Phan tu a[6]= 12 Khong phai la so NT Phan tu a[7]= la so NT Phan tu a[8]= 49 Khong phai la so NT (2)