có bài pascal ac giúp luôn em vs...

[vumanh.cuong]

Viết ct nhập vào dãy số nguyên có n phần tử
a) sắp xếp theo thứ tự tăng dần.
b) Nhập vào số bất kỳ, đếm số lần xuất hiện của nó trên dãy.
c) in ra màn hình số nhỉ hơn hoặc bằng số vừa nhập.
d) in ra màn hình số lớn hơn số vừa nhập..

anh chị nào biết giúp em vs nha:(:(:(

[hshason]

Viết ct nhập vào dãy số nguyên có n phần tử
a) sắp xếp theo thứ tự tăng dần.
b) Nhập vào số bất kỳ, đếm số lần xuất hiện của nó trên dãy.
c) in ra màn hình số nhỉ hơn hoặc bằng số vừa nhập.
d) in ra màn hình số lớn hơn số vừa nhập..

anh chị nào biết giúp em vs nha:(:(:(



PROGRAM BT;
VAR
A: Array [1..100] of integer;
n,i,i,tg,x,t: integer;
BEGIN
Write('Nhap so phan tu: ');
Readln(n);
For i:=1 to n do
Begin
Write('A[',i,']= ');
Readln(A[i]);
end;
Writeln('Day vua nhap:');
For i:=1 to n do
Write(A[i]:5);
Writeln;

For i:=1 to n-1 do
For j:=i+1 to n do
if a[j]<a[i] then
begin
tg:=a[i];a[i]:=a[j];a[j]:=tg;
end;
Writeln('Day sau khi sap xep:');
For i:=1 to n do
Write(A[i]:5);
Writeln;
t:=o
For i:=1 to n do
if A[i]=x then
t:=t+1;
Writeln('So lan xuat hien cua ',x,' trong day la: ',t) ;

Write('Nhap vao so nguyen bat ky: ');
Readln(x);
Write('Cac so <= ',x);
For i:=1 to n do
if A[i]<= x then
Write(A[i]:5);
Writeln;
Write('Cac so >= ',x);
For i:=1 to n do
if A[i]>= x then
Write(A[i]:5);
Writeln;
Readln;
END.

[vumanh.cuong]

cảm ơn anh nhiều nha. hihi