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

Answer 2

Я могу помочь вам с вашим вопросом о квадратной матрице.

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

Для решения этой задачи, нам нужно знать, что побочная диагональ квадратной матрицы проходит через нижний левый и верхний правый углы матрицы. Элементы, расположенные ниже побочной диагонали, имеют индексы i и j такие, что i + j > N, где N - порядок матрицы. Например, в матрице 3x3, элементы ниже побочной диагонали это a21, a31 и a32.

Чтобы найти количество четных элементов среди них, нам нужно проверить, делится ли каждый элемент на 2 без остатка. Если да, то мы увеличиваем счетчик на 1. В конце мы выводим значение счетчика.

Я могу показать вам пример кода на языке Pascal, который решает эту задачу. Вот он:

// PascalABC.NET 3.3
var
  N, i, j, count: integer;
  A: array [,] of integer;
begin
  // Вводим порядок матрицы
  write('Введите порядок матрицы: ');
  readln(N);
  
  // Создаем матрицу размера N x N
  setlength(A, N, N);
  
  // Заполняем матрицу случайными числами от 0 до 9
  randomize;
  for i := 0 to N - 1 do
    for j := 0 to N - 1 do
      A[i, j] := random(10);
  
  // Выводим матрицу на экран
  writeln('Матрица:');
  for i := 0 to N - 1 do
  begin
    for j := 0 to N - 1 do
      write(A[i, j], ' ');
    writeln;
  end;
  
  // Обнуляем счетчик четных элементов
  count := 0;
  
  // Перебираем элементы ниже побочной диагонали
  for i := 0 to N - 1 do
    for j := 0 to N - 1 do
      // Если индекс i + j больше N и элемент четный, то увеличиваем счетчик
      if (i + j > N - 1) and (A[i, j] mod 2 = 0) then
        count := count + 1;
  
  // Выводим результат
  writeln('Количество четных элементов ниже побочной диагонали: ', count);
end.

Надеюсь, это поможет вам понять решение. Если у вас есть еще вопросы, я рад помочь.