*Nhập:
program chiahet3;
uses crt;
var A:array[1..100] of integer;
n,i,d:word;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
d:=0;
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
if A[i] mod 3=0 then d:=d+1;
end;
write('Trong mang co ',d,' phan tu chia het cho 3');
readln;
end.
*Ngẫu nhiên:
program chiahet3;
uses crt;
var A:array[1..100] of integer;
n,i,d:word;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
randomize;
for i:=1 to n do A[i]:=random(2000)-1000;
write('Mang tao ngau nhien la: ');
d:=0;
for i:=1 to n do
begin
write(A[i],' ');
if A[i] mod 3=0 then d:=d+1;
end;
writeln;
write('Trong mang co ',d,' phan tu chia het cho 3');
readln;
end.
