Влыжной гонке участвуют 120 спортсменов. специальное устройство регистрирует прохождение каждым из участников промежуточного финиша, записывая его номер цепочкой из нулей и единиц минимальной длины, одинаковой для каждого спортсмена. каков информационный объем сообщения, записанного устройством, после того как промежуточный финиш прошла треть лыжников?

Будет 40 если я не ошибаюсь у нас была типо такой

Если я не ошибаюсь,то объем сообщения в коллективе участников будет равен 120.

Uses crt; const q=1000; var a: array[1..q,1..q]of integer; m,n,i,j,c,k,buf: integer; b: array[1..q]of integer; begin      writeln('n,m ? ')    ;     readln(n,m);     writeln('как заполнять матрицу ? ');             writeln(' нажмите 1 при датчика, 2 - ввод с клавиатуры');   {выбор действия при заполнении}                         readln(c);                     case c of                             1: for i: =1 to n do                        begin                            for j: =1 to m do                                begin                                    a[i,j]: =random(100);                                     write(a[i,j]: 4);                                 end;                               writeln;                           end;                     2:                     begin                      for i: =1 to n do                         begin                             for j: =1 to m do                               readln(a[i,j]);                           end;                           clrscr;                         for i: =1 to n do                             begin                                 for j: =1 to m do                                   write(a[i,j]: 4);                                 writeln;                             end;     end;                   end; writeln('формирование массива'); for i: =2 to n do     begin         if i mod 2=0 then                 for j: =1 to m do                       if a[i,j]> 2 then                           begin                               k: =k+1;                                 b[k]: =a[i,j];                             end;       end; writeln; for i: =1 to k do     write(b[i]: 4); writeln; {сортировка} for i: =1 to k -1 do       for j: =i+1 to k do           if b[i]< b[j]then               begin                     buf: =b[i];                     b[i]: =b[j];                     b[j]: =buf;               end; {вывод массива} for i: =1 to k do     write(b[i]: 4); end.