А) информационный вес символа 12 бит. найдите мощность алфавита. б) алфавит состоит из 512 символов. найдите информационный вес символа. решить, умоляю!
begin Randomize; Writeln('Элементы массива'); k := 0; for i := 1 to n do begin T[i] := Random(11)-5; Write(T[i]:3); if ((i mod 2)<>0) and (T[i]=0) then Inc(k); end; Writeln; Writeln('Количество нулевых элементов на нечетных местах равно ',k); end.
Тестовое решение: Элементы массива 2 5 -4 4 3 -2 5 -5 -1 -2 5 2 0 -5 -5 -4 -3 3 0 1 Количество нулевых элементов на нечетных местах равно 2
const n = 18;
var T: array[1..n] of integer; i: integer;
begin Randomize; Writeln('Элементы массива'); for i := 1 to n do begin T[i] := Random(51)-25; Write(T[i]:4); end; Writeln; Writeln('Результат'); for i := 1 to n do begin if ((i mod 2)<>0) then T[i] := 0; Write(T[i]:4); end; Writeln; end.
Б) I = log(2)512 = 9 (2^9=512)