Дан целочисленный линейный массив. Отсортировать его элементы в порядке возрастания значений.

Const

N = 13;

Var

A:array[1 ... N] of integer;

i, j, Min, B:integer;

Begin

Randomize;

Write ('Исходный массив:');

For i: = 1 to N do

Begin

A[i]:=random (2*n+1) - n;

Write (' ', A[i])

End;

WriteLn;

Write ('После сортировки:');

For i: = 1 to N do

Begin

Min:=i;

For j:=i+1 to N do

if A[j] < A[Min] then Min:=j;

B:=A[Min];

A[Min]:=A[i];

A[i]:=B;

Write (' ', A[i])

End;

ReadLn;

End.