Дан линейный массив A[1..N], содержащий целые числа.
Отсортировать его методом пузырька в порядке возрастания модулей.

ConstK = 13;VarA:array[1..K] of integer;i,j:integer;BeginWrite('Исходный массив: ');For i:= 1 to K do    Begin    A[i]:=random(21)-10;    Write(A[i],' ')    End;WriteLn;Write('Упорядоченный массив: ');For i:= 1 to K do    For j:= 1 to K-1 do        if abs(A[j])>abs(A[j+1]) then Swap(A[j],A[j+1]);For i:= 1 to K do    Write(A[i],' ');End.