program ct;
uses crt;
var A:array[1..100] of integer;
n,x:integer;
Tb:real;
begin clrscr;
write('Nhap so phan tu n: '); readln(n);
for i:=1 to n do
begin
writeln('Nhap phan tu thu ',i,': '); readln(A[i]);
end.
writeln('Nhap so x: ); readln(x);
writeln('Cac phan tu chia het cho x: ');
Tb:=0; dem:=0;
for i:=1 to n do
begin
if A[i] mod x=0 then writeln(A[i]);
if A[i] mod x=0 then dem:=dem+1;
end;
for i:=1 to n do
if A[i] mod x=0 then Tb:=(Tb+A[i])/dem;
writeln('Trung binh cac phan tu do la: ',TB);
readln;
end.
Học tốt!
