Народ как аписать генератор табличных чисел

[13Legion]

Нужно создать матрицу 4 на 4, значения которой будут (0123456789ABCDEF).
Далее случайным образом выбираем две строки и столбца и менять местами, то есть перемешиваем, а извлечённые числа помечаются флажками.
Вывести на экран как происходит перемешивание в таблице.

Это дословное задание, так дал препод.
Выручите кто соображает плиз.

[alex_fcsm]

1. Непонятно нужно 16 символов распределить по 16 ячекам или просто заполнять ячейки символами из этого диапазона.
2. Что значит перемешиваем и помечаем флажками???

uses crt;
const n=4;
var  a:array[1..n,1..n] of integer;

     
procedure InitMatr;
var i,j:integer;
begin
 for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=random(16);
end;

procedure PrintMatr;
var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if a[i,j]<10 then write(a[i,j],' ')
        else begin
             case a[i,j] of
             10:write('A ');
             11:write('B ');
             12:write('C ');
             13:write('D ');
             14:write('E ');
             15:write('F ');
               end;
             end;
    end;
   writeln;
  end;

end;
     
begin
clrscr;
randomize;
InitMatr;
PrintMatr;
end.

[13Legion]

Сообщение от alex_fcsm

1. Непонятно нужно 16 символов распределить по 16 ячекам или просто заполнять ячейки символами из этого диапазона.
2. Что значит перемешиваем и помечаем флажками???

uses crt;
const n=4;
var  a:array[1..n,1..n] of integer;

     
procedure InitMatr;
var i,j:integer;
begin
 for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=random(16);
end;

procedure PrintMatr;
var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if a[i,j]<10 then write(a[i,j],' ')
        else begin
             case a[i,j] of
             10:write('A ');
             11:write('B ');
             12:write('C ');
             13:write('D ');
             14:write('E ');
             15:write('F ');
               end;
             end;
    end;
   writeln;
  end;

end;
     
begin
clrscr;
randomize;
InitMatr;
PrintMatr;
end.

Вот задание я процитировал дословно, так что хз. Препод полный г....., просто дал без всякого объяснения. Я так понял нужно взять матрицу вида как я привёл выше то есть такую:
0123
4567
89AB
CDEF

случайным образом выбрать две строки и два столбца, теперь поменять их местами (т.е. перемешать). Извлечёны числа пометить (то есть числа которые менялись местами как ни-будь отметить ) и в конце вывести на экран как происходило перемешивание в таблице.

Друзья нужен более подходящий код и что бы работал. ПОМОГИТЕ, а то я лаймер в этом.

[alex_fcsm]

Сообщение от 13Legion

Препод полный г....., просто дал без всякого объяснения.

так спросите чтобы Вы сами поняли.

[13Legion]

Сообщение от alex_fcsm

так спросите чтобы Вы сами поняли.

я бы с удовольствием, но препода фиг застанешь, а я заочник. Да и объяснять он не особо хочет.

[Arigato]

Вот задание я процитировал дословно, так что хз. Препод полный г....., просто дал без всякого объяснения.

По сути, решение задачи Вам уже привёл alex_fcsm. Далее, Вы сможете уточнить задание у препода и довести решение до требуемого условия самостоятельно.

[13Legion]

Сообщение от Arigato

По сути, решение задачи Вам уже привёл alex_fcsm. Далее, Вы сможете уточнить задание у препода и довести решение до требуемого условия самостоятельно.

А что бы добавить в код что бы матрица по середине экрана появлялась?

[Arigato]

А что бы добавить в код что бы матрица по середине экрана появлялась?

А сами как считаете? Или у Вас в принципе отсутствует своё мнение? Зачем так занижать самооценку.

[13Legion]

Сообщение от Arigato

А сами как считаете? Или у Вас в принципе отсутствует своё мнение? Зачем так занижать самооценку.

Дружище каждому своё в этой жизни, ну если я не понимаю, что неужели у знающего человека убудет если он мне поможет сделать задачу?

[Arigato]

ну если я не понимаю, что неужели у знающего человека убудет если он мне поможет сделать задачу?

А попытаться понять Вы не в силах?