Моё решение - во вложении
N=128
а т.к N=2^i
то 128=2^i и i=7бит(один символ весит в этом языке)
теперь 7*30=210 бит
это обьем информации которое несет сообщение
var
i,max:integer;
ar:array[0..200] of integer;
begin
randomize;
max:=0;
for i:=1 to 200 do <em>begin</em>
ar[i]:=random(200+1)-100;
if (ar[i] > max) then max:=ar[i];
if (i mod 20=0) then writeln(ar[i]) else write(ar[i],' ');
<em>end;</em>
<em>writeln();</em>
for i:=1 to 200 do <em>begin</em>
if (ar[i] < 0) then ar[i]:=max;
if (i mod 20=0) then writeln(ar[i]) else write(ar[i],' ');
<em>end;</em>
<span>
end.</span>