program dayso;
uses  crt;
var  a:array[1..1000] of integer;
    i,j,n,dem,the,x,nb,lh: integer;
begin
writeln('Nhap so luong phan tu cua day: '); read(n);
for i:=1 to n do 
    begin
        write('a[',i,'] = '); readln(a[i]);
    end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] > a[j] then 
    begin
        the:=a[i];
        a[i]:=a[j];
        a[j]:=the;
    end;
writeln('Day so sau sap xep la ');
for i:=1 to n-1 do write(a[i],',');
writeln(a[n]);
write('Nhap x vao: x = '); readln(x);
dem:=0; nb:=0; lh:=0;
for i:=1 to n do
    begin
        if a[i] = x then dem:=dem+1;
        if a[i] <=x then nb:=nb+1;
        if a[i] > x then lh:=lh+1;
    end;
writeln('So lan x xuat hien la ', dem);
writeln('So phan tu nho hon hoac bang x la ',nb);
writeln('So phan tu lon hon x la ',lh);
end.

uses crt;
var n,i,x,j,deml,demb,dem,t:longint; a:array[1..10000]of longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
      end;
   writeln('Cau a:');
      for i:=1 to n do for j:=1 to i do
            if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
      for i:=1 to n do writeln(a[i]);
   writeln('Cau b:');
      write('x=');readln(x);
      for i:=1 to n do
         begin
            if a[i]=x then inc(dem);
            if a[i]<=x then inc(demb);
            if a[i]>=x then inc(deml);
         end;
      writeln('So ',x,' xuat hien ',dem,' lan trong day.');
   writeln('Cau c:');
      writeln('So phan tu nho hon hoac bang x la: ',demb);
   writeln('Cau d:');
      writeln('So phan tu nho hon hoac bang x la: ',deml);
readln
end.

/////////////////////////////////////////

Test: