Дан массив из n элементов. отсортируйте его по возрастанию и выдайте на печать старый и новый массивы

Const  n = 5; var   a: system.array; begin   var b : = new system.collections.generic.list< object> (n);   for i: integer : = 1 to n do     b.add(random(50));   a : = b.toarray(); {  основная часть }   foreach s: integer in a do write(s: 3);   writeln();   system.array.sort(a);   foreach s: integer in a do write(s: 3); end.

Const n=3; var a: array[1..n,1..n] of integer; i,j,min,s: integer; upsr,downsr,k: real; begin for i: =1 to n do for j: =1 to n do a[i,j]: =random(10); for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 5); writeln; end; min: =a[1,1]; s: =0; for i: =1 to n do for j: =1 to n do begin if (a[i,j]< min) and (j> i) then min: =a[i,j]; end; for i: =1 to n do for j: =1 to n do if i< j then  s: =s+a[i,j];   upsr: =s/((sqr(n)-n)/2); s: =0; for i: =1 to n do for j: =1 to n do if i> j then  s: =s+a[i,j]; downsr: =s/((sqr(n)-n)/2); k: =sqr(downsr-upsr); writeln('минимальный элемент выше главной диагонали  ',min); writeln('среднее  арифметическое элементов  выше главной диагонали  ',upsr); writeln('среднее  арифметическое элементов ниже  главной диагонали  ',downsr); writeln('квадрат разности  средних арифметических значений элементов матрицы  ',k); end.

Переведем данные числа    1, 11,3,28,34 в двоичную систему1=1₂ 11=2*5+15=2*2+12=2*1+01=2*0+1     11=1011₂ 3=11₂ 28 и  34 больше 11, значит, их двоичная запись будет не менее 4-х знаков ответ: таких чисел нет 15=2*7+1 7=2*3+1 3=2*1+1 1=2*0+1 15=1111₂   подходит. 18=2*9+0 9=2*4+1 4=2*2+0 2=2*1+0 1=2*0+1 18=10010₂  21=2*10+1 10=2*5+0 5=2*2+1 2=2*1+0 1=2*0+1 21=10101₂ 23=2*11+1 11=2*5+1 5=2*2+1 2=2*1+0 1=2*0+1 23=10111₂    подходит. 27=2*13+1 13=2*6+1 6=2*3+0 3=2*1+1 1=2*0+1 27=11011₂    подходит. ответ: 15, 23, 27