Поменять местами

[IIaJIbI4]

Поменять местами

Помогите пожалуйста.... Очень нужно
В матрице A (M,N) поменять местами элементы k-стороки и (k+1) - ой строки. k+1<=M.

 

[Vladimir_S]

Помогите пожалуйста.... Очень нужно
В матрице A (M,N) поменять местами элементы k-стороки и (k+1) - ой строки. k+1<=M.

Ну так в чем проблема? Создаете дополнительный массив X(N), в него копируете k-тую строку, затем элементам k-той строки присваиваете значения элементов k+1-й строки, а элементам k+1-й - значения из массива X.
А программу пишите-ка самостоятельно. Потому что на чем еще учиться, как не на таких абсолютно элементарных задачках?

 

[Long Cat]

Можно обойтись одним циклом:

for i:=1 to k do
begin
   t:=a[i,k];
   a[i,k]:=a[i,k+1];
   a[i,k+1]:=t;
end

 

[Vladimir_S]

Можно обойтись одним циклом:

for i:=1 to k do
begin
   t:=a[i,k];
   a[i,k]:=a[i,k+1];
   a[i,k+1]:=t;
end

Можно и так. Но с другой стороны, введение одномерного массива позволяет обойтись вообще без циклов:

TYPE
 AR=ARRAY[1..N] of INTEGER;
VAR
 X:AR;
 A:ARRAY[1..M] of AR;
...
 X:=A[k];
 A[k]:=A[k+1];
 A[k+1]:=X;

Но это ладно, программистские изыски. Хорошо бы товарищ хоть как-то решил задачку. Главное, чтобы самостоятельно.