Cho dãy A gồm n số nguyên a1,a2,a3,...an .Hãy cho biết trong dãy A có bao nhiêu số chia hết cho 2 và 3

Uses crt;

Var a:array[1..1000000] of longint;

      i, n, sch: integer;

Begin

Clrscr;

Write('Nhap n = '); readln(n);

For i:=1 to n do

Begin

  Write('a[',i,']=');

  Readln(a[i]);

End;

sch:=0;

For i:=1 to n do if (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then inc(sch);

Writeln('Co ',sch,' so chia het cho 2 va 3');

Readln

End.

program ct;

uses crt;

var n,i,d:integer;

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

begin

clrscr;

write('nhap n=');readln(n);

for i:=1 to n do

begin

write('nhap mang a[',i,']=');readln(a[i]);

end;

d:=0;

for i:=1 to n do

if (a[i] mod 2=0) and (a[i] mod 3=0) then d:=d+1;

writeln('co',d,' so chia het cho 2 va 3');

readln

end.