// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 procedure 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]:=value end;
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.
procedure 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]:=value
end;
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