Этот случай вполне мог иметь место во времена «золотой лихорадки» в США. На одном из приисков старатели были возмущены действиями Джо Макдональда- хозяина с салона, принимавшего от них в уплату золотой песок. Очень уж необычными были гири, с которых тот взвешивал золото:1.2.4.8.16.32.64г ( степень числа 2). Джо утверждал, что с такого набора гирь он может взвесить любой порцию золотого песка, не превышающую 127 г. Прав ли Джон Макдональд? Как с названных гирь набрать вес а)23г.
Б)49г.
в)46г.
Г)101г.

// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),1,27); a.Println;
  var s:=a.Where((x,i)->i.IsEven);
  Writeln('Cумма элементов с нечетными номерами: ',s.Sum);
  Writeln('Произведение элементов с нечетными номерами: ',
      s.Aggregate(BigInteger(1),(x,y)->x*y));
end.

Пример
n= 25
13 6 18 13 14 23 7 3 24 6 6 9 14 8 4 2 14 2 14 22 9 24 19 20 27
Cумма элементов с нечетными номерами: 183
Произведение элементов с нечетными номерами: 167343326631936

// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в матрице:');
  var m:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var (i,k):=(0,-1);
  foreach var c in a.Cols do
    if c.Where(e->e.IsEven).Count<5 then k:=i
    else i+=1;
  if k>=0 then begin
    Writeln('*** Матрица - результат [',n,',',m+1,'] ***');
    SetLength(a,n,m+1);
    for var c:=a.ColCount-1 downto k+1 do
      a.SetCol(c,a.Col(c-1));
    a.SetCol(k+1,ArrFill(a.RowCount,0));
    a.Println(4)
    end
  else Writeln('Нет столбцов с количеством четных элементов, меньшим 5')
end.

Пример
Количество строк в матрице: 8
Количество столбцов в матрице: 6
*** Исходная матрица [8,6] ***
  38 -44  50  20 -85 -92
  15 -43  43   6 -80  63
  76   2 -63  32  14 -37
 -78 -30  94 -45  44 -25
 -74  30  15 -56 -41 -88
  72 -15 -74  38 -47 -76
  11 -75  -2  70  35  65
 -52 -42   9  94  59 -28

*** Матрица - результат [8,7] ***
  38 -44  50  20   0 -85 -92
  15 -43  43   6   0 -80  63
  76   2 -63  32   0  14 -37
 -78 -30  94 -45   0  44 -25
 -74  30  15 -56   0 -41 -88
  72 -15 -74  38   0 -47 -76
  11 -75  -2  70   0  35  65
 -52 -42   9  94   0  59 -28