Question

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

Answer 1

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.