Питон Задан массив чисел в двоичной системе исчисления. Упорядочить элементы массива по возрастанию. Определить среднее значение чисел.

Алгоритм
1) a x a = a² ⇒ b;    b x a = a³ ⇒ результат
2) a x a = a² ⇒ b;    b x b = a⁴ ⇒ c;   c x c = a⁸ ⇒ c;   c x b = a¹⁰ ⇒ результат

Программа на языке PascalABC.Net
var
  a,b,c,y:real;
begin
  Write('Введите число: '); Read(a);
  b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y);
  c:=b*b; c:=c*c; y:=b*c;
  Writeln('Десятая степень числа равна ',y)
end.

Тестовые решения:
Введите число: 2
Третья степень числа равна 8
Десятая степень числа равна 1024

Введите число: -13.594
Третья степень числа равна -2512.128188584
Десятая степень числа равна 215512594781.574

Sub m2()
    Cells.Clear
    Dim n As Integer, i As Integer, min As Integer
    n = InputBox("n(>5) = ")
    Cells(1, 1).Value = "n = " + Str(n)
    ReDim a(1 To n)
    For i = 1 To n
        a(i) = InputBox("a(" + Str(i) + ")")
    Next i
    Cells(2, 1).Value = "Исходный массив"
    Range(Cells(3, 1), Cells(3, n)).Value = a
    min = a(1)
    For i = 2 To n
        If a(i) < min Then min = a(i)
    Next i
    Cells(4, 1).Value = "min = " + Str(min)
    Cells(5, 1).Value = "Полученный массив"
    For i = n - 4 To n
        a(i) = min
    Next i
    Range(Cells(6, 1), Cells(6, n)).Value = a
End Sub