Упорядочить целочисленный массив Х по убыванию

Question

Упорядочить целочисленный массив Х по убыванию

Answer 1

var x:array[1..n] of integer; (n сам задай)

i,j,k:integer;

 

begin

For i:=1 to n do
Readln(x[i]);

For j:=1 to n-1 do
For i:=1 to n-j do
If X[i]

For i:=1 to n do
Writeln(X[i]);

end.