Question

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

Answer 1

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

begin
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(5,4,-5,20);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('a) ',a.ElementsByRow
      .Where(t->t.Between(0,5) or t.Between(5,15)).Sum);
  Writeln('б) ',a.Row(2).Min);
  var b:=a.ElementsByRow.ToArray; Print('в)'); b.Println;
  Writeln('г) ',a.ElementsByRow.TakeLast(10).Sum)
end.

Пример
*** Исходная матрица ***
  19  -2  17  -1
   4  10   9   9
   8  15  -1  -1
  -3  12  -1  20
  10   3  16  13
----------------
a) 93
б) -1
в) 19 -2 17 -1 4 10 9 9 8 15 -1 -1 -3 12 -1 20 10 3 16 13
г) 68