Задан двумерный массив из 20 элементов. Увеличьте числа в 3 раза, сумма индексов которых – четное число и уменьшите числа в 2 раза, сумма индексов которых – нечетное число.

Размеры массива могут быть любыми

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!begin  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');  Writeln('*** Исходный массив ***');  var a:=MatrRandom(m,n,-30,30);   a.Println(4); Writeln(4*a.ColCount*'-');  Writeln('*** Полученный массив ***');  for var i:=0 to m-1 do    for var j:=0 to n-1 do      if (i+j).IsEven then a[i,j]*=3      else a[i,j]:=a[i,j] div 2;  a.Println(4)end.