Помогите решить задачу

Если Вам надо с одномерным массивом, размер которого вводится с клавиатуры (как, кстати, чёрным по белому прописано в задании !), то лучше наверно сделать программу с динамическим массивом, то есть, например, на FreePascal'e как-нибудь так:

 uses crt; 

var l, m, n: integer; 

A: array of integer;



procedure print_array(s: string); 

  begin 

    textcolor(green); 

    writeln(s); 

    textcolor(magenta); 

    m := 0; 

    for l := 0 to n-1 do 

      begin 

        write(A[l]: 3); 

        m := m + 1; 

        if m = 20 then 

          begin 

            m := 0; 

            writeln() 

          end 

      end; 

    if m>0 then writeln() 

  end;



  begin 

    textbackground(white); 

    clrscr(); 

    textcolor(blue); 

    write('n: '); 

    textcolor(red); 

    readln(n); 

    setlength(A, n); 

    randomize(); 

    for l := 0 to n-1 do 

      A[l] := random(100); 

    print_array('Исходный массив:'); 

    for l := 0 to n-1 do 

      if (A[l] mod 12 = 0) then A[l] := 12; 

    print_array('Тот же массив после замены чисел:') 

  end. 

А если Вам тут явный бред строчат про невесь откуда взявшийся статический двумерный массив, размер которого отнюдь не вводится с клавиатуры и о котором в задании нет ни слуху ни помина, тогда такие глупые и нелепые явно клоунские ответы надо сразу минусовать!

PascalABC:

const m = 5; n = 10;
var Mas : array [1..m, 1..n] of integer;
begin WriteLn ( ' Исходный массив: ');
for var i := 1 to m do
begin for var j := 1 to m do
begin Mas [i, j] := 0 + Random (100); Write (Mas[i, j]:4); end; WriteLn; end;
WriteLn ( ' Преобразованный массив : ');
for var i := 1 to m do
begin for var j := 1 to m do
begin if (Mas [i, j] mod 12 = 0) then Mas [i, j] := 12; Write (Mas[i, j]:4); end;
WriteLn; end;
end.