Сколько кодов можно составить из 7 бит

Объяснение:

1 128 комбинаций т.к 2^7=128

2 4 бита т.к 2^4=16

Для начала посчитаем, сколько бит информации было передано:
2 минуты и 45 секунд = 165 секунд
165 с * 128000 бит/с = 21120000 бит

Теперь вспомним, что такое частота дискретизация и уровни квантования. Дело в том, что аудио сигнал - это такая прикольная сложная синусоида. Чтобы записать сигнал в цифровом виде, каждую секунду сигнала как бы делят на промежутки (количество этих промежутков в секунде и есть частота дискретизации). Для каждого из этих промежутков записывается что-то вроде среднего значения высоты. Количество возможных значений - количество уровней квантования.
Но это так - если говорить очень упрощённо. Подробнее прочитайте в своём учебнике информатики.

Итак - у нас 256 уровней квантования. Значит каждое из значений можно записать 8 битами.
И на секунду у нас приходится 22000 таких записей.
То есть каждая секунда записи у нас кодируется 22000 * 8 = 176000 битами.

21120000 / 176000 = 120 секунд.

Честно, не поняла ваш код вообще. Почему нет цикла? Предлагаю свое решение:
1)Cначала заполняем массив случайными числами от 2 до 5 (включительно)
2)Потом выводим его (Для проверки)
3) Потом считаем оценки. Но сначала нужно обнулить переменные( В самом начале это делали), а то получится кака (:

program N_0547847;
var
    b, c, d, f, i:integer;
    a: array [1..20] of integer;
begin;
randomize;
b:=0; c:=0; d:=0; f:=0;
for i:=1 to 20 do begin
  a[i]:=random(4)+2; 
  write(a[i],' '); end; 
writeln;
for i:=1 to 20 do begin
    if a[i]=2 then  b:=b+1;
    if a[i]=3 then  c:=c+1;
    if a[i]=4 then  d:=d+1;
    if a[i]=5 then   f:=f+1;
end;
writeln('Двоек: ', b); 
writeln('Троек: ', c); 
writeln('Четверок: ',d);
writeln('Пятерок: ',f);
end.