Question

Дана матрица А[1:4; 1:4]
а) получить сумму и количество четных элементов в интервале
[-10 +5].
б) сформировать вектор из сумм элементов матрицы по столбцам
в) получить среднеарифметическое значение положительных элементов матрицы.
г) получить произведение и сумму элементов в третьем столбце.

Answer 1

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

begin
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(4,4,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.ElementsByRow.Where(t->t.Between(-10,5) and t.IsEven);
  Writeln('На интервале [-10;5] четных элементов ',s.Count,
      ', их сумма равна ',s.Sum);
  var vc:=a.Cols.Select(t->t.Sum);
  Write('Вектор сумм по столбцам: '); vc.Println;
  Writeln('Среднее арифметическое положительных равно: ',
      a.ElementsByRow.Where(t->t>0).Average);
  Writeln('В третьем столбце сумма элементов равна ',
      a.Col(2).Sum,', произведение равно ',
      a.Col(2).Aggregate(1,(p,q)->p*q))
end.

Пример
*** Исходная матрица ***
  27 -87  73  -6
  48 -50  75 -32
   4  92 -84  85
  27   4  31 -63
----------------
На интервале [-10;5] четных элементов 3, их сумма равна 2
Вектор сумм по столбцам: 106 -41 95 -16
Среднее арифметическое положительных равно: 46.6
В третьем столбце сумма элементов равна 95, произведение равно -14256900