Сортировка массива методом перестановки

Gusakou

Условия нет, просто нужно сделать задачу по сортировке массива методом перестановки, и что бы числа были отображены по возрастанию, помогите, очень надо
1 ответ

Gusakou

Program Sort;
 
Var Arr : Array[1..100] of integer;
Var i,j,k : integer;
 
Begin
 
    { Заполняем ...}
    
    For i:=1 to 100 Do Arr[i]:=Random(30);
    
    { Сортируем ...}
    
    For i:=1 to 99 Do
        For j:=i+1 to 100 Do
            if (Arr[j]<Arr[i]) Then Begin
               k:=Arr[i];
               Arr[i]:=Arr[j];
               Arr[j]:=k;
            End;
            
    { Печатаем ... }
    
    For i:=1 to 100 Do Writeln(Arr[i]);
    
End.