Составим уравнение и решим его:
8*n+8000 = 16*n
8*n = 8000 где n - количество символов в сообщении
Переведем в байты и получим, что первоначальный объем сообщения равен 8000/8 = 1000байт
===== PascalABC.NET =====
begin
var a := ArrRandom(40, -99, 99);
a.Println;
var i := a.IndexMax;
a?[:i]
.Where(p -> p <> 0)
.Aggregate(Biginteger.One, (p, q) -> p * q)
.Print
end.