Для чего используется "Сalameo"

Calameo - это средство создания интерактивных электронных документов в Интернете. Какие-то блоги, .docx .xlsx .pptx файлы и тому подобное.

//PascalABC.Net 3.0, сборка 1064
type
  IntArray = array of integer;

var
  rows, cols: integer;
  M: array of IntArray;

begin
  Write('Количество строк и столбцов матрицы: '); Read(rows, cols);
  var Avg: array of double := new double[cols];
  M := new IntArray[rows];
  SetLength(Avg, cols);
  for var i := 0 to rows - 1 do
  begin
    M[i] := ArrRandom(cols, -25, 25);
    M[i].Println(#9)
  end;
  for var j := 0 to cols - 1 do
    Avg[j] := Range(0, rows - 1).Select(x -> M[x, j]).Average;
  Writeln('Наименьшее среднее по столбцам равно ', Avg.Min)
end.

Тестовое решение:
Количество строк и столбцов матрицы: 5 8
-22    -8    12    7    3    -18    8    22
2    -16    17    -13    -10    0    -19    2
20    -21    -6    13    2    -20    25    24
-7    -3    -2    -10    -2    8    18    23
4    -21    -8    8    23    -12    -13    -5
Наименьшее среднее по столбцам равно -13.8

1. Два решения есть :-) 1а. Допустим, все карандаши в корзине разные (различим их по молекулярному составу) . Тогда информация о молекулярном составе вытащенного карандаша несет log(2)(64) = 6 бит информации. Информация о цвете несет 4 бита. Значит, 2 бита информации о молекулярном составе несущественны. Значит, число карандашей одного цвета разного состава есть 2^2 = 4 штуки. 1б. 4 бита информации описывают одно из 2^4 равновероятных событий, то есть 1 из 16 событий. Равновероятны события только, если разных цветов карандашей одинаковое число штук. То есть, 64/16 = 4 штуки.  2. Так как не было известно, в каком вагоне поедут, информации имеем log(2) (16) = 4 бита. Кроме того, можно считать, что не знали, поедут ли, но тогда расчет усложняется - если не поедут, информация о вагоне не нужна, то есть это - зависимые события. Думаю, что в задаче заранее известно, что они таки выезжают, вопрос только в вагоне