Задание

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

var

i, j, m, x: integer;

A: array[1..10] of integer := (12, 7, 8, 10, 4, 19, 3, 22, 35, 8);

begin

for i := 1 to 9 do 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.