Tạo mảng a gồm n số nguyên , đếm có bai nhiêu số chia hết cho 6 trong dãy dố nguyên đó

program Tin_hoc;

uses crt;

var i,n,k:integer;

     a: array [1..100000] of integer;

begin

clrscr;

write('Nhap n: ');readln(n);

writeln('Nhap ',n,' so nguyen:');

k:=0;

for i:= 1 to n do

  begin

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

  readln(a[i]);

  if a[i] mod 6 = 0 then inc(k)

  end;

writeln('Mang a co ',k,' so nguyen chia het cho 6');

readln;

end.

uses crt;

var A:array [1..1000] of integer;

n,i,dem:integer;

begin

writeln ('nhap vao so phan tu cua mang');readln (n);

for i:=1 to n do readln (A[i]);

write ('cac so chia het cho 6 la: ');

for i:=1 to n do if A[i] mod 6 =0 then 

dem:=dem+1;

writeln ('co tat ca ',dem,' so chia het cho 6');

readln

end.