Nhập vào 1 mảng số nguyên gồm n phần tử. In ra màn hình các phần tử chia hết cho x và tính trung bình các phần tử đó

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!