Saazhavof
5 год назад
Дан массив R (М, M). Переставить строку с минимальным элементом на главной диагонали со строкой с заданным номером.PascalABC
ОТВЕТЫ
Neemok
Aug 8, 2019
Const
m=10;
var
R:array[1..m,1..m] of integer;
i,j,t,p,q:integer;
begin
Write(Введите номер строки (1..10) для перестановки: );
Read(q);
Randomize;
Writeln(Исходный массив);
for i:=1 to m do begin
for j:=1 to m do begin
R[i,j]:=Random(90)+10;
Write(R[i,j]:3);
end;
Writeln
end;
p:=1;
for i:=2 to m do
if R[i,i]lt;R[p,p] then p:=i;
if plt;gt;q then begin
Writeln(Результирующий массив);
for j:=1 to m do begin
t:=R[p,j]; R[p,j]:=R[q,j]; R[q,j]:=t
end;
for i:=1 to m do begin
for j:=1 to m do Write(R[i,j]:3);
Writeln
end
end
end.
Пример
Введите номер строки (1..10) для перестановки: 3
Исходный массив
50 86 52 85 96 69 44 51 20 77
55 79 39 73 98 74 65 65 63 80
64 89 83 55 98 74 85 63 90 52
37 42 64 84 66 78 67 31 56 34
69 18 34 48 42 44 12 91 67 47
72 19 14 22 53 61 13 97 87 31
83 80 61 67 50 22 25 55 16 29
16 44 19 39 20 55 65 44 23 63
72 93 96 52 79 27 38 52 40 15
75 70 44 34 50 88 57 66 97 29
Результирующий массив
50 86 52 85 96 69 44 51 20 77
55 79 39 73 98 74 65 65 63 80
83 80 61 67 50 22 25 55 16 29
37 42 64 84 66 78 67 31 56 34
69 18 34 48 42 44 12 91 67 47
72 19 14 22 53 61 13 97 87 31
64 89 83 55 98 74 85 63 90 52
16 44 19 39 20 55 65 44 23 63
72 93 96 52 79 27 38 52 40 15
75 70 44 34 50 88 57 66 97 29
m=10;
var
R:array[1..m,1..m] of integer;
i,j,t,p,q:integer;
begin
Write(Введите номер строки (1..10) для перестановки: );
Read(q);
Randomize;
Writeln(Исходный массив);
for i:=1 to m do begin
for j:=1 to m do begin
R[i,j]:=Random(90)+10;
Write(R[i,j]:3);
end;
Writeln
end;
p:=1;
for i:=2 to m do
if R[i,i]lt;R[p,p] then p:=i;
if plt;gt;q then begin
Writeln(Результирующий массив);
for j:=1 to m do begin
t:=R[p,j]; R[p,j]:=R[q,j]; R[q,j]:=t
end;
for i:=1 to m do begin
for j:=1 to m do Write(R[i,j]:3);
Writeln
end
end
end.
Пример
Введите номер строки (1..10) для перестановки: 3
Исходный массив
50 86 52 85 96 69 44 51 20 77
55 79 39 73 98 74 65 65 63 80
64 89 83 55 98 74 85 63 90 52
37 42 64 84 66 78 67 31 56 34
69 18 34 48 42 44 12 91 67 47
72 19 14 22 53 61 13 97 87 31
83 80 61 67 50 22 25 55 16 29
16 44 19 39 20 55 65 44 23 63
72 93 96 52 79 27 38 52 40 15
75 70 44 34 50 88 57 66 97 29
Результирующий массив
50 86 52 85 96 69 44 51 20 77
55 79 39 73 98 74 65 65 63 80
83 80 61 67 50 22 25 55 16 29
37 42 64 84 66 78 67 31 56 34
69 18 34 48 42 44 12 91 67 47
72 19 14 22 53 61 13 97 87 31
64 89 83 55 98 74 85 63 90 52
16 44 19 39 20 55 65 44 23 63
72 93 96 52 79 27 38 52 40 15
75 70 44 34 50 88 57 66 97 29
69
Смежные вопросы: