Решить 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 (k>m) or (n>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    endend.ПримерКоличество строк и столбцов матрицы: 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