Для кодирования одной из 7 нот требуется log(2)7 ≈ 3 бита (2^3=8).
Объем сообщения = 960*3 бит = 960*3 / 8 байт = 360 байт
Var r:array[1..3,1..3] of integer;i,j,n,k,sum:integer; b:array[1..30]of integer;beginrandomize;writeln('Исходная матрица: ');for i:=1 to 3 dobeginfor j:=1 to 3 dobeginr[i,j]:=random(15)-5;write(r[i,j]:3);end;writeln;end;// cумма диагоналиwriteln;for i:=1 to 3 dobeginfor j:=1 to 3 dobeginif i=j then beginwrite(r[i,j]:3);sum:= sum + r[i,j];end elsewrite(' ':3);end;writeln;end;writeln(sum);end.
Для буквы Т нужно использовать кодовое слово 00101
Оно отличается:
от А = 10000 в трёх позициях (1-й, 3-й, 5-й),
от И = 11110 в четырёх позициях (1-й, 2-й, 4-й, 5-й),
от С = 01011 в трёх позициях (2-й, 3-й, 4-й)
Насчёт вариантов ответа - затрудняюсь сказать...
C Готовых домашнии задании посмотри!