Viết chương trình nhập vào mảng số nguyên và 1 giá trị b nguyên, thông báo ra màn hình các số trong mảng là ước của b
1 câu trả lời
uses crt;
var n,b,d,i:longint; a:array[1..100000]of longint;
begin
clrscr;
write('n,b=');readln(n,b);
for i:=1 to n do begin write('a[',i,']=');readln(a[i]); if b mod a[i]=0 then inc(d); end;
writeln(d);
readln
end.
