Вопрос 2 оформить трассировочной таблицей

program massiv;

uses crt;

var i,j: integer;

        a: array[1..6,1..6] of integer;

begin

      clrscr;

      randomize;

      for i: =1 to 6 do            begin                for j: =1 to 6 do                    begin                        a[i,j]: =random(101)-50;                   end;         end;

 

  for i: =1 to 6 do      begin        for j: =1 to 6 do            begin              write(a[i,j]: 3);             end;   writeln; end;

 

readkey;

end.

 

 

 

 

 

 

 

 

 

 

const

  n = 10;

var

  a: array[1..n] of integer;

  i, j: integer;

begin

  randomize;

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

  for i : = 1 to n do

  begin

    a[i] : = random(101);

    write(a[i], ' ');

  end;

   

  for i : = 1 to n - 1 do

    for j : = 1 to n - i do

      if a[j] mod 10 > a[j + 1] mod 10 then

      begin

        a[j] : = a[j] + a[j + 1];

        a[j + 1] : = a[j] - a[j + 1];

          a[j] : = a[j] - a[j + 1];

      end;

 

  writeln;

  writeln('результат: ');

  for i : = 1 to n do

    write(a[i], ' ');

  writeln;

end.