Nhập một mảng A, gồm n phần tử nguyên dương (n<=250), biết chương trình đưa ra các số nguyên tố trong bảng A. Lưu ý: mảng A được lưu ở tệp Snt.inb các số nguyên tố trong mảng A được lưu ở tệp Snt.out Trong chương trình có viết chương trình con là hàm. Kiểm tra số nguyên tố boolean. Gợi ý: nếu là số nguyên tố trả về true/faste, chương trình sẽ tránh lặp for...do.../while...do... Cầu cao nhân chỉ dạy 🙏🙏🙏 Làm ơn!!!!

em chỉ mới học lớp 8 nên chưa biết lưu vào tệp nha anh/chị có thể tự thêm vào còn đây là code in kết quả ra màn hình nè:

program GiaiBai;

uses crt;

var i, n:integer;

      A: array [1..250] of integer;

function Ktra (m:integer) : integer;

var t:boolean;

      j:integer;

begin

t:=true;

for j:=2 to m-1 if m mod j=0 then t:=false;;

if t=true then write(m:4); 

end;

begin

clrscr;

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

while n>250 do begin

   writeln('So vua nhap qua lon xin hay nhap lai ');

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

                           end;

for i:=1 to n do begin

   write('A[',i,']='); readln(A[i]); //Nht

                          end;

for i:=1 to n do Ktra(A[i]);

readln;

end. 

(*Bai nay chi in ket qua ra man hinh*)

Xem hình