Var c,k1,k2,i,min,max: integer;
begin
min:=m[0]; max:=m[0];
for i:=0 to N do begin // тут вот N - размер массива, m - массив
if (m[i]>max) then begin
max:=m[i];
k1:=i
end;
if (m[i]
Память, занимаемая сообщением первоначально: 50*8 бит = 50 байт
Память, занимаемая сообщением после перекодировки:
50*16 бит = 50*2 байт = 100 байт
Количество информации увеличилось на 100-50 байт = 50 байт
3*8^3 + 7*8^2 + 1*8 + 4 = 1536 + 448 + 8 + 4 = 1996
ОТвет: 1996