Viết chương trình để đếm số phần tử là số lẻ và chia hết cho 3
Mn giúp mình với, bài cần nộp gấp quá huhu
Viết chương trình để đếm số phần tử là số lẻ và chia hết cho 3 Mn giúp mình với, bài cần nộp gấp quá huhu
By Melody
By Melody
Viết chương trình để đếm số phần tử là số lẻ và chia hết cho 3
Mn giúp mình với, bài cần nộp gấp quá huhu
Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i,d: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n do
Begin
Read(A[i]);
If (A[i] mod 2 <> 0) and (A[i] mod 3 = 0) then inc(d);
End;
Write(d);
Readln
End.