На языке python. задан массив чисел в двоичной системе счисления. упорядочить элементы массива по возрастанию. определить среднее значение чисел. заранее )

import random
dwa = [i for i in range(0,15+1)]
dwa_new = []
for q in dwa:
dwa_new.append(bin(q))
print('Числа в 10 системі:\n',dwa)
print('\tПеревод чисел в 2 систему:')
print('Числа в 2 системі:\n',dwa_new)
gotov = []
mas = [random.choice(dwa_new) for i in range(10)]
mas_sredne = []
for zz in mas:
mas_sredne.append(int(zz,2))
m = 0
for s in mas_sredne:
m += s
b = m/len(mas_sredne)
mas.sort()

mas.reverse()
print("Відсортовані числа за спаданням:\n",mas)
print("Середне число:",bin(int(b)))

Пример: 

Числа в 10 системі: [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15]
 Перевод чисел в 2 систему:
Числа в 2 системі: ['0b0', '0b1', '0b10', '0b11', '0b100', '0b101', '0b110', '0b111', '0b1000', '0b1001', '0b1010', '0b1011', '0b1100', '0b1101', '0b1110', '0b1111']
Відсортовані числа за спаданням: 
['0b111', '0b1101', '0b1101', '0b1100', '0b11', '0b1011', '0b1011', '0b1010', '0b1001', '0b10']
Середне число: 0b1001

1)var a:array[1..3,1..3] of integer;
b:array[1..3,1..3] of integer;
c:array[1..3,1..3] of integer;
i,j:integer;
begin;
writeln('A array:');
for i:=1 to 3 do
begin;
writeln;
  for j:=1 to 3 do
   begin;
    a[i,j]:=random(-10,10);
    write(a[i,j]:4);
   end;
end;
writeln;
writeln('B array:');
for i:=1 to 3 do
begin;
writeln;
  for j:=1 to 3 do
   begin;
    b[i,j]:=random(-10,10);
    write(b[i,j]:4);
   end;
end;
writeln;
writeln('C array:');
for i:=1 to 3 do
begin;
writeln;
  for j:=1 to 3 do
   begin;
    c[i,j]:=a[i,j]*b[i,j];
    write(c[i,j]:4);
   end;
end;
end.
2)var a:array of array of integer;
i,j,k,n,u:integer;
begin;
randomize;
readln(n);
setlength(a,n+1);
for i:=1 to n do
setlength(a[i],n+1);
writeln('A array:');
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     a[i,j]:=random(-10,10);
     write(a[i,j]:4);
    end;
 end;
for i:=1 to n do
 begin;
  for j:=1 to n do
   u+=a[i,j];
 if u<0 then inc(k);
 u:=0;
 end;
writeln;
write('Result:',k);
end.

1)var a:array[1..3,1..3] of integer;
b:array[1..3,1..3] of integer;
c:array[1..3,1..3] of integer;
i,j:integer;
begin;
writeln('A array:');
for i:=1 to 3 do
begin;
writeln;
  for j:=1 to 3 do
   begin;
    a[i,j]:=random(10)-10;
    write(a[i,j]:4);
   end;
end;
writeln;
writeln('B array:');
for i:=1 to 3 do
begin;
writeln;
  for j:=1 to 3 do
   begin;
    b[i,j]:=random(-10,10);
    write(b[i,j]:4);
   end;
end;
writeln;
writeln('C array:');
for i:=1 to 3 do
begin;
writeln;
  for j:=1 to 3 do
   begin;
    c[i,j]:=a[i,j]*b[i,j];
    write(c[i,j]:4);
   end;
end;
end.
2)var a:array[1..1000,1..1000] of integer;
i,j,k,n,u:integer;
begin;
randomize;
readln(n);
writeln('A array:');
for i:=1 to n do begin;
  writeln;
   for j:=1 to n do
    begin;
     a[i,j]:=random(10)-10;
     write(a[i,j]:4);
    end;
 end;
for i:=1 to n do begin;
  for j:=1 to n do
   u+=a[i,j];
 if u<0 then inc(k);
 u:=0;
 end;
writeln;
write('Result:',k);
end.