uses crt;

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

      i,n,x,csd,d,tbc: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

write ('nhap x: ');  readln (x);

for i:=1 to n do

begin

write ('nhap a[',i,']: ');   readln (n);

if a[i]=x then csd:=i;                 {chỉ số đầu bằng x}

if a[i]=x then d:=d+1;                {đếm các phần tử bằng x}

if a[i]<x then t:=t+a[i];              {tính tổng để tính Trung bình cộng}

end;

tbc:=t/n;

writeln ('a) chi so dau tien co gia tri bang x la: a[',csd,']');     

writeln ('b) co ',d,' phan tu co gia tri bang x');

write ('c) cac gia tri lon hon x la: ');

for i:=1 to n do id a[i]>x then write (a[i],'   ');

writeln;

writeln  ('d) gia tri trung binh cong cua cac so nho hon x la: ',tbc);

readln;

end.

uses crt;

var i,n,x,d,d2:byte;

a:array[0..200] of integer;

    tbc:real;

BEGIN

        clrscr;

        write('Nhap n:'); readln(n);

        write('Nhap x:'); readln(x);

        d:=0;    tbc:=0;       d2:=0;

        for i:=1 to n do

        begin

                write('Nhap a[',i,']:');

                readln(a[i]);

                if a[i]=x then inc(d);

                if a[i]<x then

               begin

                        inc(d2);

                        tbc:=tbc+a[i];

                end;

        end;

        writeln('a) ',a[x]);

        writeln('b) ',d);

        write('c) ');

        for i:=1 to n do

                if a[i]>x then write(a[i],' ');

        write('d) ',tbc/d2:0:3);

        readln

END.

Chúc bạn học tốt, xin ctlhn!