Question

Дана квадратная матрица порядка N. Найти количество четных элементов квадратной матрицы, расположенных ниже побочной диагонали.

Answer 1

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

begin
  var n:=ReadInteger('Количество строк (столбцов) в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var k:=0;
  for var i:=1 to n-1 do
    for var j:=n-i to n-1 do
      if a[i,j].IsEven then k+=1;
  Writeln('Количество четных элементов ниже побочной диагонали: ',k)
end.

Пример
Количество строк (столбцов) в матрице: 7
*** Исходная матрица ***
  90  57  58  49  91 -83  61
 -57  70  52  90  53 -22  89
 -90 -23  39 -88  28  16 -34
 -65 -19 -92 -49  77  11  79
 -37 -85  -5   6 -41 -75 -90
   1  62  24  92 -37  88  21
 -65 -47  48 -39 -46   6  38
----------------------------
Количество четных элементов ниже побочной диагонали: 11