массив

[Marvell]

Задана последовательность из N чисел, упорядочить ее по возрастанию методом сортировки выбором

[BHy4ok]

Код: Выделить всё

For J:=1 To N-1 Do
Begin
Min := A[J];
NMin := J;
For I:=J+1 To N Do
If A[I] < Min Then
Begin
Min := A[I];
NMin := I;
End;
A[NMin] := A[J];
A[J] := Min;
End;