Nhập dãy và nhập k từ bàn phím và cho biết vị trí của phần tử ak trong dãy.Việc xếp vị thứ được thực hiện: số có giá trị lớn nhất được xếp vị trí thứ 1,hai số có cùng giá trị thì được xếp cùng một vị thứ.Khi có hai số hoặc nhiều số sắp vị thứ k thì không có số được sắp xếp vị thứ k+1
uses crt;
var n,i,j,k,kt,t:longint; a:array[1..10000000]of longint;
begin
clrscr;
write(‘n,k=’);readln(n,k);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(A[i]);
for j:=1 to i do
if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
end;
for i:=2 to k do if a[i]=a[i-1] then kt:=1;
if kt=1 then writeln(‘Khong co’) else writeln(a[k]);
readln
end.
program sothuk;
var A,B:array[1..100] of integer;
n,i,j,tg,k:integer;
begin
clrscr;
write(‘Nhap so luong phan tu cua day: ‘); readln(n);
writeln(‘Nhap gia tri tung phan tu cua day’);
for i:=1 to n do
begin
write(‘Phan tu thu ‘,i,’: ‘);
readln(A[i]);
end;
write(‘Nhap k: ‘); readln(k);
{Sap xep}
for i:=1 to n 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;
{Tao mang tim vi thu}
B[1]:=1;
for i:=2 to n do
if A[i]=A[i-1] then B[i]:=B[i-1] else B[i]:=i;
{In vi thu cua A[k]}
write(‘Phan tu ‘,A[k],’ co vi thu: ‘,B[k]);
readln
end.