Question

cho 1 dãy số nguyên và số nguyên k kiểm tra trong dãy số vừa nhập có bao nhiêu phần tử chia hết cho k

Answer 1

Lời giải :

Program hotrotinhoc ;

var a: array[1..32000] of integer;

i,n,k,dem : integer ;

begin

write('Nhap do dai cua day so :'); readln(n);

for i:= 1 to n do

begin

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

end;

write('k='); readln(k);

dem:=0;

for i:= 1 to n do

if a[i] mod k=0 then dem:=dem+1;

write('Co tat ca ',dem,' phan tu chia het cho k');

readln

end.