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

0 голосов
33 просмотров

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


Информатика (14 баллов) | 33 просмотров
Дан 1 ответ
0 голосов

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.

(2.6k баллов)