KIỂM TRA TÍNH NGUYÊN TỐ CỦA CÁC PHẦN TỬ TRONG MẢNG.INPUT A...

8.

Kiểm tra tính nguyên tố của các phần tử trong mảng.

Input A = 2 3 4 5 62 là số nguyên tố3 là số nguyên tốOutput4 không phải là số nguyên tố5 là số nguyên tố6 không phải là số nguyên tố Xác định bài toán:- Input: mảng a- Output: tổng các phần tử chẵn và TB cộng của các phần tử chẵn trong mảng. Thuật toán:- B1Nhập n, a

1

,a

2

, …, a

n

- B2: i 1, - B3: nếu a

i

là nguyên tố thì thông báo ai là số nguyên tố- B4: ngược lại, thông báo ai không phải là số nguyên tố.

-

B5: ii+1;

-

B6: nếu i > n, kết thúc.

-

B7: quay lại bước 3. Chương trình: program ktnguyento;uses crt;var a:array[1..15] of integer; n,i,j,d:byte;begin clrscr; write('nhap so luong phan tu: '); readln(n);for i:=1 to n do begin write('nhap phan tu a[',i,']= '); readln(a[i]); end; writeln('---'); for i:=1 to n do begin d:=0; for j:=2 to (a[i] div 2) do if a[i] mod j = 0 then d:=d+1; if d=0 then writeln(a[i],' la so nguyen to') else writeln(a[i],' khong phai so nguyen to'); end;readln