массив
Добавлено: 25 ноя 2007, 12:05
Задана последовательность из N чисел, упорядочить ее по возрастанию методом сортировки выбором
Код: Выделить всё
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;