Масивы, Как отсортировать Опции

[zloy_pes]

Проблема вот в чём - есть масивы A и B из действительных чисел. В массив B нужно засунуть числа из масива A, расположив их в порядке убывания. В FAQ я смотрел, но ксожалению алгоритма так и не понял

[Altair]

Const 
n=100;
Type
arrType = Array[1 .. n] Of Integer;

Procedure Bubble(Var ar: arrType; n: integer);
Var i, j, T: Integer;
Begin
 For i := 1 To n Do  For j := n DownTo i+1 Do
       If ar[Pred(j)] > ar[j] Then Begin
           T := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := T
       End
End;

var
 A,B:arrtype;
nn:integer;
begin
 {enter A,B ....}
 Bubble(a,nn) ;
 b:=a;

end.

что то типа того, только это по возрастанию...
p.s. это не прога а шаблончик...
а что у тебя за непонимания алгоритма ? какие вопросы?

[virt]

а у нас в факе сортировка вообще есть?

М

и это говорит модератор ? да еще тот кто сам писал эту тему: http://forum.pascalnet.ru/index.php?showtopic=3065 Altair