Задание

Установите верный порядок следования команд в программе при сортировке массива из 10 элементов в порядке неубывания.

var

for i := 1 to 9 do

begin

i, j, m, x: Integer;

begin

m := i;

for j := i + 1 to 10 do

begin

if A[j] < A[m] then

m := j;

end;

x := A[i];

A[i] := A[m];

A[m] := x;

end;

end;