Чтобы успешно выполнить какую-либо работу или решение задачи нужно передать исполнителю полный набор исходных данных.
Ответ во вложениях, с решением
Если я правильно поняла задачу и нужно из двоичного числа перевести в десятичное, то ответ 231
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),10,50);
a.Println;
var imax:=a.IndexMax; a[imax]:=a[imax] div 2;
a[a.IndexMin]*=2;
a.Println
end.
<u><em>Тестовое решение:</em></u>
n= 10
39 23 22 15 37 41 16 44 41 31
39 23 22 30 37 41 16 22 41 31
16000*24*90*4 = 138240000бит = 17280000 байт = 16875 килобайт = 16,47 мбайт