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

Решить 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     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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы