Помогите решить задачку.. не могу разобраться как это делать..
Дано целое n>1, за которым следует n вещественных чисел. Напечатать эти числа в порядке их невозрастания.
СПАСИБО!!!
type
a=^Elem;
Elem=record
x:real;
next:a;
end;
var
p,q:a;
i,c:integer;
begin
write('vvedite kolichestvo elementov:');
readln(n);
p:=nil;
for i:=n to downto 1 do
begin
new(q);
readln(q^.x);
q^.next:=p;
p:=q;
end;
new(n);
n^.x:=c;
n^.next:=p;
p:=c;