Question

Nhập vào mảng A gồm n số nguyên (n<=1000), đếm số lượng các số trongdãy là bội của cả 3 và 5Ví dụ n=5, dãy số là 10 6 9 15 30Thì kết quả là 2.

Answer 1

uses crt;

var a,b,c:array[1..1000]of integer;   

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

begin     

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

end;

dem:=0;

for i:=1 to n do 

  if (a[i] mod 3=0) and (a[i] mod 5=0) then inc(dem);

writeln(dem);

readln;

end.