Tin học Viết chương trình tìm số lượng số (chẵn, lẻ, nguyên tố) trong dãy A

Trâm Nguyễn Thị Ngọc

Giải Nhất event Thế giới Sinh học 2
Thành viên
13 Tháng mười 2018
1,523
1,339
241
19
Quảng Trị
Trường TH&THCS Hải Ba
Bạn nào khá về môn này thì giúp mình với :D
Mình đang mắc phần b ( nhưng phần a cũng chưa biết đúng hay sai :D)

View attachment 154611
Mã:
Var
  A:array[1..100] of integer;
  Sc,sl,snt,n,i,j:integer;
  Kt:boolean;
Begin
      Readln(n);sc:=0,sl:=0;snt:=0;
      For i:=1 to n do
            Begin
                  Readln(a[i]);
                  If a[i] mod 2=0 then sc:=sc+1 else sl:=sl+1;
             End;
       Writeln('so le:',sl,',so chan:',sc);
       For i:=1 to n do
             If a[i]>1 then
                  Begin
                      Kt:=true
                      For j:=2 to a[i]-1 do if a[i] mod j=0 then kt:=false;
                       If kt=true then snt:=snt +1;
                   End;
      Writeln('so luong snt la:',snt);
       Readln
End.
Lâu rồi em không làm pascal nên có thể sai, nếu sai thì chị báo lại để em sửa ạ
 
  • Like
Reactions: Zo_yaaaa
Top Bottom