Vào đây hỏi mấy cái này làm gì?
Xác định X thuộc dãy ko
Flag:=false
For i:=1 to n do
if a[i]=x then
flag=true
{Xử lí sau khi ko có , thêm cái đằng sau}
a[n+1] = x;
Sắp xếp giảm dần : Kiểu đơn giản nè : Selection Sort
For i:=1 to n do
For j:=i+1 to n do
Begin
if a[i] > a[j] Then
{Thực...