bài tập kiểu mảng

[duongthao98]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

đếm số lượng các số nguyên tố trong 1 dãy số ai...aN(N<= 250 ,N ,ai thuộc N*)
GỢI Ý của giáo viên:
*chương trình 1:kiểm tra 1 số nguyên dương có phải là số nguyên tố không?
*chương trình 2:đếm

 

[khai221050]

uses crt;
var i,j,n,d:Integer;
    A:array[1..50] of Integer;
begin
      clrscr;
      write('nhap n:');
      readln(n);
      for i:=1 to n do
      begin
            write('nhap a[',i,'] ');
            readln(a[i]);
      end;
      j:=1;
      for i:=1 to n do
            if a[i]>1 then
            begin
                repeat
                      inc(j);
                until (a[i] mod j=0);
                if j>(a[i] div 2) then inc(d);
                j:=1;
            end;
      write('Co ',d,' so nguyen to trog day');
      readln;
end.