4) Як надати елементові презентації керуючої дії? ​

Мощность алфавита = 8.

Объяснение:

На заметку: Мощность алфавита — количество символов в нём.

По условию известно, что в каждой строке сообщения (их всего три) по 256 символов. Узнаем общее количество символов, умножив 3 на 256:

1) 3 * 256 = 768 — символов во всём сообщении.

Также нам известен общий информационный объём всего сообщения, равный 0,25 килобайта. Чтобы счёт в будущем был более удобным, можно перевести килобайты в биты, умножив 0,25 на 1024 (1 килобайт равен 1024 байтам) на 8 (1 байт равен 8 битам):

2) 0,25 * 1024 * 8 = 2048 — вес всего сообщения в битах.

Далее, чтобы узнать вес одного символа, достаточно просто поделить общий вес сообщения на количество символов, то есть 2048 на 768:

3) 2048 : 768 = 2,(6) ≈ 3 — вес одного символа.

В последнем шаге нужно воспользоваться формулой количества возможных событий и количества информации (N = 2^i, где N — количество возможных событий (в данном случае — мощность алфавита), а i — вес одного символа).

4) N = 2^3 = 8.

Const
  maxN = 100; // Максимальное кол-во элементов массива
var
  n, i: longint;
  middle, sum, sum2: real; // Может быть нецелым числом
  a: array[1..maxN] of real;
begin
  write('Введите количество элементов массива: ');
  readln(n);
  sum := 0; // Считаем сумму всех элементов, чтобы найти среднее арифметическое
  write('Введите элементы массива через пробел: ');
  for i := 1 to n do begin
    read(a[i]);
    sum := sum + a[i];
  end;
  middle := sum / n; // Вычисляем среднее арифметическое
  writeln('Среднее арифметическое = ', middle);
  sum2 := 0; // Считаем сумму элеметов, меньших среднего арифметического
  for i := 1 to n do
   if a[i] < middle then
     sum2 := sum2 + a[i];
  writeln('Сумма элементов, меньших среднего арифметического = ', sum2);
end.