Задано одномерный масив D с десятью елементами целых чисел

const m=10; var a: array[1… m] of integer; i, j, tmp: integer; begin for i: =1 to m do begin a[i]: =random (100); write (a[i], '); end; writeln; for i: =1 to m-1 do for j: =1 to m-i do if a[j] > a[j+1] then begin tmp: =a[j]; a[j]: =a[j+1]; a[j+1]: =tmp end; for i: =1 to m do write (a[i], '); end.