Question

Дан массив A(10,5). Поменять местами элементы первого столбца с элементами столбца, в котором находится минимальный элемент массива

Answer 1

Pascal
Как я понял array [1..10,1..5] of integer;

 const     
n = 10;     
m = 5; 
var   
a : array [1..n,1..m] of integer;   
i,j,min,jm,buf : integer; 
begin 
for i := 1 to n do   
for j := 1 to m do     
readln (a[i,j]);   

min := a[1,1]; 
jm := 1;   
for i := 1 to n do   
 for j := 1 to m do     
if a[i,j] < min then     
begin       
jm := j;       
min := a[i,j];     
end;    
if jm <> 1 then   
for i := 1 to n do   
begin     
buf := a[i,1];     
a[i,1] := a[i,jm];     
a[i,jm] := buf;   
end;  
end.

Answer 2

Для решения данной задачи, нужно найти минимальный элемент массива А(10,5) и запомнить его индекс столбца. Затем нужно поменять местами элементы первого столбца с элементами найденного столбца.

Предположим, что массив А имеет следующий вид:

| 1 | 2 | 3 | 4 | 5 | |---|---|---|---|---| | 6 | 7 | 8 | 9 | 10| | 11| 12| 13| 14| 15| | 16| 17| 18| 19| 20| | 21| 22| 23| 24| 25| | 26| 27| 28| 29| 30| | 31| 32| 33| 34| 35| | 36| 37| 38| 39| 40| | 41| 42| 43| 44| 45| | 46| 47| 48| 49| 50|

Шаг 1: Находим минимальный элемент и его индекс столбца. В данном случае, минимальный элемент равен 1 и его индекс столбца равен 0.

Шаг 2: Меняем местами элементы первого столбца с элементами столбца, в котором находится минимальный элемент.

Таким образом, после выполнения операции замены, массив А будет иметь следующий вид:

| 1 | 7 | 3 | 4 | 5 | |---|---|---|---|---| | 6 | 2 | 8 | 9 | 10| | 11| 12| 13| 14| 15| | 16| 17| 18| 19| 20| | 21| 22| 23| 24| 25| | 26| 27| 28| 29| 30| | 31| 32| 33| 34| 35| | 36| 37| 38| 39| 40| | 41| 42| 43| 44| 45| | 46| 47| 48| 49| 50|

Таким образом, элементы первого столбца (1, 6, 11, 16, 21, 26, 31, 36, 41, 46) были поменяны местами с элементами столбца, в котором находится минимальный элемент (2, 7, 12, 17, 22, 27, 32, 37, 42, 47).