Вшкольную команду по футболу было отобрано некоторое количество учеников из 32 претендентов. сколько учеников было отобрано, если сообщение о том кто был выбран содержит 60 бита информации?

Выбор одного ученика из 32 = 2^5 учеников несет в себе 6 бит информации.
Информация объемом 60 бита означает, что были выбраны 60/ 5= 12 учеников.

Удаление контекстной переменной доступно только на вкладке Контекст карточки процесса. При этом, если версия процесса, в которой эта переменная существовала, была опубликована, для сохранения целостности системы контекстная переменная не удаляется из базы, но скрывается из списка контекстных переменных процесса. При создании новой переменной с таким же названием система предлагает восстановить удаленную переменную. Если восстановление существовавшей ранее переменной не требуется, необходимо изменить имя создаваемой переменной.

program p1;

uses Crt;

var

 i, n, m, min: integer;

begin

 ClrScr;

 Write('Длина последовательности: ');

 Readln(n);

 Read(min);

 for i := 2 to n do

 begin

   Read(m);

   if m < min then

     min := m;

 end;

 Writeln(min);

 ReadKey;

end.

program p2;

uses Crt;

var

 i, n, m, max, k: integer;

begin

 ClrScr;

 Write('Длина последовательности: ');

 Readln(n);

 Read(max);

 k := 1;

 for i := 2 to n do

 begin

   Read(m);

   if m > max then

   begin

     max := m;

     k := 1;

   end

   else if m = max then

     k := k + 1;

 end;

 Writeln(k);

 ReadKey;

end.