1) два письма написаны с использованием алфавитов с разными мощностями: 16 символов и 32 символа. в 1-ом письме 120 символов, во 2-ом письме - 96 символов. сравните информационные объёмы сообщений. 2) информационное сообщение объёмом 375 байт состоит из 500 символов. каков вес каждого символа сообщения? какова мощность алфавита, используемого для написании сообщения? 3) для записи текста использован 64-символьный алфавит. какое количество информации в байтах содержат 3 страницы текста, если на каждой странице 40 строк по 60 символов? 4) сколько информации несёт сообщение о том, что было указано число в диапазоне от 55 до 311 (55 включая, 311 не включая)?

1) Для кодирования одного из 16 символов необходимо log(2)16 = 4 бита (2^4=16); для кодирования одного из 32 символов необходимо log(2)32 = 5 бит (2^5=32). Объем 1-го письма = 4*120 бит = 480 бит; объем второго - 5*96 = 480 бит. Таким образом, объемы равны.

2) 375 байт = 375*8 бит = 3000 бит. Объем одного символа = 3000/500 = 6 бит. Мощность алфавита = 2^6 = 64 символа.

3) Для кодирования одного из 64 символов необходимо log(2)64 = 6 бит. Количество символов в тексте = 3*40*60. Информационный объем текста = 3*40*60*6 бит = 3*40*60*6/8 байт = 5400 байт.

4) Количество символов в указанном диапазоне = 311-55 = 256. Количество информации в сообщении об одном числе диапазона = log(2)256 = 8 бит = 1 байт (2^8=256).

// PascalABC.Net 3.0, сборка 1052
const
  nn=100;
var
  a:array[1..nn] of integer;
  p,s:longint;
  i,n:byte;
begin
  Write('Введите количество элементов в массиве: '); Read(n);
  Writeln('Вводите целочисленные элементы массива через пробел');
  s:=0; p:=1;
  for i:=1 to n do begin
    Read(a[i]);
    if i mod 2 = 0 then p:=p*a[i];
    s:=s+a[i]
  end;
  Writeln('Произведение элементов с четными номерами: ',p);
  Writeln('Среднее арифметическое элементов: ',s/n)
end.

Тестовое решение:
Введите количество элементов в массиве: 10
Вводите целочисленные элементы массива через пробел
-4 6 11 8 12 21 7 13 9 -15
Произведение элементов с четными номерами: -196560
Среднее арифметическое элементов: 6.8

// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!

type
  R=sequence of integer;

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  var P:R->BigInteger:=t->t.Aggregate(BigInteger(1),(p,q)->p*q);
  if P(a.Where(t->t.IsEven))>P(a.Where(t->t.IsOdd))
  then Writeln('Номер максимального элемента: ',a.IndexMax+1)
  else Writeln('Номер минимального элемента: ',a.IndexMin+1)
end.

Примеры
n= 17
31 98 7 42 -70 -98 -34 43 -48 -40 -28 -35 15 26 25 1 -66
Номер минимального элемента: 6

n= 15
95 88 -82 96 87 -68 17 40 -66 1 60 -25 -78 -55 -55
Номер максимального элемента: 4