Заполните пропуски числовыми значениями. Для передачи сообщений используется код, состоящий из 4 символов, вероятности появления которых равны 0,25. Корреляция между символами отсутствует.Тогда энтропия сообщения равна бита, а избыточность
бит.

Здесь ничего не написано про случай, если максимум = минимуму, поэтому его не учитываем.

Идея программы: просто ищем индекс первого максимального и первого минимального, а затем сравниваем их

Фрагмент кода:

int max = a[0], min = a[0];

int i_max = 0, i_min = 0;

for (int i = 1; i < n; i++) {

 if (a[i] > max) {  

  max = a[i];

  i_max = i;

 }

 if (a[i] < min) {

  min = a[i];

  i_min = min;

 }

}

if (i_max > i_min)

 cout << "MAX";

else if (i_min > i_max)

 cout << "MIN";

// PascalABC.NET

begin

 var СправочникКомпании := new List<string>;

 while True do

 begin  

   var НаборСлов := ReadlnString.ToWords;

   var ЧислоСлов := НаборСлов.Length;

   case ЧислоСлов of

     2: СправочникКомпании.Add(НаборСлов[0] + ' ' +

         НаборСлов[1]);

     3: begin

           СправочникКомпании.Add(НаборСлов[1] + ' ' +

               НаборСлов[2]);

           break

        end;  

     else

       Writeln('Нарушен формат данных, строка не принята')  

   end

 end;  

 WriteAllLines('ТелефонныйСправочник.txt',

     СправочникКомпании.ToArray)

end.