Question

Đề 14 : Viết chuingw trình nhập n số nguyên . Đếm các số vừa chia hết cho 2 vừa chia hết cho 3 . Xuất kết quả ra màn hình

Help me mai mình kiểm tra thực hành rồi giúp mình với nha everyody -.- !!

Answer 1

uses crt;
Var a:array[1..100000] of longint;
i,n,d:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 3=0) then inc(d);
write('Co ',d,' so vua chia het cho 2 vua chia het cho 3');
readln
end.