Решить 8) 2 пункт (На языке Паскаль,Делфи)
За 50 баллов

Const
  mm=15;
  ll=20;
var
  m,l,k,n,i,j,t:integer;
  b:array[1..mm,1..ll] of integer;
begin
  Write(Количество строк и столбцов матрицы: );
  Read(m,l);
  Write(Номера строк для обмена: );
  Read(k,n);
  if (kgt;m) or (ngt;m) then Writeln(Неверный ввод)
  else begin
    Randomize;
    Writeln(Исходная матрица);
    for i:=1 to m do begin
      for j:=1 to l do begin
        b[i,j]:=Random(100);
        Write(b[i,j]:3)
        end;
      Writeln
    end;
    for j:=1 to l do begin t:=b[k,j]; b[k,j]:=b[n,j]; b[n,j]:=t end;
    Writeln(Результирующая матрица);
    for i:=1 to m do begin
      for j:=1 to l do Write(b[i,j]:3);
      Writeln
      end
    end
end.

Пример
Количество строк и столбцов матрицы: 8 11
Номера строк для обмена: 3 7
Исходная матрица
 36 41 20 48 68 93 12 87  2 80 67
 96 15 59 55 55 18 89 14  2 12 77
 99  4 13 92 63  7 43  4 55 68 98
 91 55 44 70 23 55 39 84 36 26 76
 89 86 85 84 60 55 88 59 30 38 20
 59 42 16 35 75 30  5 44 97 25 99
 98 23  4 10 85 94 34 74 18 76 50
 23 14 27  6 78 47 88 16 95 38 59
Результирующая матрица
 36 41 20 48 68 93 12 87  2 80 67
 96 15 59 55 55 18 89 14  2 12 77
 98 23  4 10 85 94 34 74 18 76 50
 91 55 44 70 23 55 39 84 36 26 76
 89 86 85 84 60 55 88 59 30 38 20
 59 42 16 35 75 30  5 44 97 25 99
 99  4 13 92 63  7 43  4 55 68 98
 23 14 27  6 78 47 88 16 95 38 59