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