Question

Помогите решить задачу в паскале срочно если можно: Дана целочисленная матрица Х(6 х 7). Заменить нулями положительные элементы с четной суммой индексов

Answer 1

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

begin
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(6,7,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  for var i:=0 to a.RowCount-1 do
    for var j:=0 to a.ColCount-1 do
      if (a[i,j]>0) and (i+j).IsEven then a[i,j]:=0;
  Writeln('*** Результирующая матрица ***'); a.Println(4)
end.

Пример
-74  73  61  97  96  52 -23
  77 -99 -79  48  67  -3 -23
  63 -61 -26  28 -99  89 -13
 -85  43 -14  85  -8  91 -70
 -68  90  71 -23  94  67 -81
 -69 -52  44  47  96 -48  89
----------------------------
*** Результирующая матрица ***
 -74  73   0  97   0  52 -23
  77 -99 -79   0  67  -3 -23
   0 -61 -26  28 -99  89 -13
 -85   0 -14   0  -8   0 -70
 -68  90   0 -23   0  67 -81
 -69 -52  44   0  96 -48  89