Đây là thuật toán cho bạn dễ hiểu nhé!
program bt;
var
begin
for i:=1 to 6 do readln(A[i]);
for i:=1 to 6 do write(A[i],' ') {Bạn in dãy vừa nhập ra để dễ theo dõi nha}
for i:=1 to 5 do
for j:=i+1 to 6 do if A[i] < A[j] then
begin
tam:=A[i];
A[i]:=A[j];
A[j]:=tam; {bạn đổi chỗ các phần tử, như bạn hoán đổi giá trị x và y}
end;
for i:=1 to 6 do write(A[i],' ');
readln;
end.
ĐÂY LÀ THUẬT TOÁN. BẠN HỌC TỐT NHÉ!