Question

Для заданной целочисленной матрицы a(n,m) проверить, делится ли сумма её элементов на 3 и на 7, и вывести на печать соответствующий текст

Answer 1

// 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