C++ Series39. Дано целое число K, а также K наборов ненулевых целых чисел. Каждый набор содержит не менее трех элементов, признаком его завершения является число 0. Найти количество пилообразных наборов (определение пилообразного набора дано в задании Series23 Series40. Дано целое число K, а также K наборов ненулевых целых чисел. Каждый набор содержит не менее трех элементов, признаком его завершения является число 0. Для каждого набора выполнить следующее действие: если набор является пилообразным (см. задание Series23), то вывести количество его элементов; в противном случае вывести номер первого элемента, который не является зубцом. (Series23. Дано целое число N (> 2) и набор из N вещественных чисел. Набор называется пилообразным, если каждый его внутренний элемент либо больше, либо меньше обоих своих соседей (то есть является «зубцом»). Если данный набор является пилообразным, то вывести 0; в противном случае вывести номер первого элемента, не являющегося зубцом.)

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

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var n:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  if a.Rows.SelectMany(x->x).Sum mod 21=0 then
    Writeln('Сумма элементов одновременно делится на 3 и на 7')
  else
    Writeln('Сумма элементов одновременно не делится на 3 и на 7')
end.

Примеры
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица [4,7] ***
  73 -53  69 -94 -38  50  30
  -9  63  54  28 -56  68  21
 -97  18 -80  68  86 -27  -3
  33 -30 -17   6 -69 -95 -81

Сумма элементов одновременно не делится на 3 и на 7

Количество строк в матрице: 5
Количество столбцов в матрице: 4
*** Исходная матрица [5,4] ***
 -53  14  50  52
 -81  55  14 -89
  99 -53  37  96
  73  27  -8 -85
   0  -8  46  50

Сумма элементов одновременно не делится на 3 и на 7