Viết chương trình nhập vào 1 dãy số nguyên có n phần tử
a) Sắp xếp dãy theo thứ tự tăng dần.
b) Nhập vào 1 dãy số x bất kì, đếm số lần xuất hiện của nó trong dãy trên.
c) In ra màn hình số phần tử bé hơn hoặc bằng x.
d) In ra màn hình số phần tử lớn hơn x.
Giúp mình với ạ !!!!
Program NhatNgu;
Uses crt;
Var A: array[1..10000] of longint;
n,i,x,dl,db,j,tg,dem: longint;
Begin
Clrscr;
Write(‘Nhap n, x: ‘); Readln(n,x);
dl:=0; db:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘); Readln(A[i]);
If A[i]=x then inc(dem);
If A[i]<=x then inc(db)
Else inc(dl);
End;
For i:=1 to n-1 do
For j:=i+1 to n do
If A[i]>A[j] then
Begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;
For i:=1 to n do Write(A[i],’ ‘);
Writeln;
Writeln(‘Xuat hien ‘,dem,’ lan’);
Writeln(‘Co ‘,db,’ phan tu be hon hoac bang ‘,x);
Writeln(‘Co ‘,dl,’ phan tu lon hon ‘,x);
Readln
End.