Возможно я не так понял, конечно, но эта блок-схема -- бред.
Во первых, i -- целое число, так-что никаких 1.56 мы ей пресвоить не можем.
Во вторых, это просто бесконечное умножение, условия выхода из цикла -- нет.
1111000(120 в десятичной) + 100(4 в десятичной) = 104 в десятичной = 1101000 в двоичной.
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a.Select(t -> Abs(t)).Max.Println
end.
<h2>n= 13</h2><h2>24 -14 9 -6 43 -4 15 -46 40 -14 -32 45 32</h2><h2>46 </h2>
Алгоритм - это определенный набор инструкций, порядок действий.
Словесный - составленный на словах, ртом; графический - с помощью рисунка, графика; программный - в программе, на компьютере.