Question

Замінити всі парні елементи матриці одиницею програма pascal

Answer 1

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

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var n:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица[',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4);
  for var i:=0 to m-1 do
  for var j:=0 to n-1 do
    if a[i,j].IsEven then a[i,j]:=1;
  Writeln('*** Результирующая матрица[',m,',',n,'] ***');
  a.Println(4);
end.

Пример
Количество строк в матрице: 6
Количество столбцов в матрице: 9
*** Исходная матрица[6,9] ***
  23 -23 -25  38  40  38  50  45 -35
 -41  31   2  30  37 -30  -9  -8 -28
 -12  20 -20  32  29   7  19  23  46
 -48 -21 -27  19  10 -17 -20 -27 -47
 -39 -11  19 -23   9   6  29 -24 -14
   2  -7  37 -22  38  23   5 -33  37
*** Результирующая матрица[6,9] ***
  23 -23 -25   1   1   1   1  45 -35
 -41  31   1   1  37   1  -9   1   1
   1   1   1   1  29   7  19  23   1
   1 -21 -27  19   1 -17   1 -27 -47
 -39 -11  19 -23   9   1  29   1   1
   1  -7  37   1   1  23   5 -33  37