Question

Viết chương trình một mảng số nguyên x, gồm n phần tử và số nguyên x. Hãy in ra các phần tử trong mảng mà x là ước số lẻ

Answer 1

help me!!!

Answer 2

program andanh;
uses crt;
var x,i,n,kt: integer;
a: array[1..100] of integer;
begin
clrscr; kt:= 0;
write('So phan tu trong mang: ');readln(n);
for i:= 1 to n do
begin
write('Phan tu thu ',i,': ');
readln(a[i]);
end;
write('Nhap so nguyen x: ');readln(x);
writeln('Cac phan tu ma ',x,' la uoc so le:');
for i:= 1 to n do
if (a[i] mod x = 0) and (x mod 2 = 1) then
begin
write(a[i],' ');
kt:= 1;
end;
if kt = 0 then write('Khong co phan tu nao co ',x,' la uoc so le');
readln
end.