В массиве все элементы, стоящие перед четными, заменить на 9.
(Написать программу на языке Pascal)

Const  amax=20;
var  a: array[1..amax,1..amax] of integer; 
i,j,k,n,m: byte;
begin 
write('Введите размеры массива(матрицы (<20)):'); 
 readln(n,m); 
 writeln('Массив(матрица):');
  for i:=1 to n do  begin   
 for j:=1 to m do    begin      a[i,j]:=random(99)+1;   
  write(a[i,j]:4);   
 end;   
 writeln; 
 end; 
 writeln('Кол-во четных элементов по колонкам:'); 
 for j:=1 to m do 
 begin   
 k:=0;   
 for i:=1 to n do   
  if odd(a[i,j])=false then inc(k);   
writeln('В ',j,' столбце ',k); 
 end; 
 writeln('Конец программы!');
end.

// 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