В заданном двумерном массиве заменить все нечетные элементы на 26.
Решить на PascalABC.NET.
Оформить в виде процедуры!!!

СПАСИБО БОЛЬШОЕ!!!

Пожалуйста. Но достаточно было красной кнопочки и звездочек - это и "Спасибо", и его размеры )))

))

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016procedure MatPrint(a:array[,] of integer);begin  for var i:=0 to Length(a,0)-1 do begin    for var j:=0 to Length(a,1)-1 do Write(a[i,j]:4);    Writeln    end end;procedure MatReplaceOdd(a:array[,] of integer; value:integer);begin  for var i:=0 to Length(a,0)-1 do    for var j:=0 to Length(a,1)-1 do      if a[i,j].IsOdd then a[i,j]:=valueend;begin  var n,m:integer;  Write('Задайте число строк и столбцов матрицы: ');  Read(n,m);  var a:=MatrixRandom(n,m,-99,99);  Writeln('Исходный массив');  MatPrint(a);  MatReplaceOdd(a,26);  Writeln('Результирующий массив');  MatPrint(a)end.Тестовое решениеЗадайте число строк и столбцов матрицы: 5 7Исходный массив -14  86  52 -85 -52 -79  78  20 -80  68  89 -45 -45 -36 -41 -60  96  43  16  56 -58 -39  81   1  26 -15 -98  89  57 -51  79 -28 -24 -63 -74Результирующий массив -14  86  52  26 -52  26  78  20 -80  68  26  26  26 -36  26 -60  96  26  16  56 -58  26  26  26  26  26 -98  26  26  26  26 -28 -24  26 -74