Двумерные массивы

[St1mkA]

Дана матрица A(MxN) и целые числа p и q. Преобразовать матрицу А так, чтобы строка с исходным номером p непосредственно следовала за стро¬кой с исходным номером q, сохранив порядок следования остальных строк.

[Chudo4258]

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

без учета, что q не последняя строчка, если она последняя, то не знаю как, может поднять ее на одну строчку, или что с ней сделать???

[LeBron]

Сообщение от Chudo4258

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

без учета, что q не последняя строчка, если она последняя, то не знаю как, может поднять ее на одну строчку, или что с ней сделать???

Это обмен двух строк, а не "вырезать-вставить". У нас меняется относительный порядок той, что после q и всех остальных. В задании требуют как раз грубо говоря "поднять", тоесть нужную строку вырезать, остальное сдвинуть, а потом ее вставить, и сдвинуть все в другую сторону.

[ImmortalAlexSan]

А что вам мешает пронумеровать эти строки сначала?

[Chudo4258]

Сообщение от LeBron

Это обмен двух строк, а не "вырезать-вставить". У нас меняется относительный порядок той, что после q и всех остальных. В задании требуют как раз грубо говоря "поднять", тоесть нужную строку вырезать, остальное сдвинуть, а потом ее вставить, и сдвинуть все в другую сторону.

Точно, сорри задачу не так понял.

[St1mkA]

А как задачу то сделать?

[Chudo4258]

копируешь строчку р в отдельный массив:

for i:=1 to m do
 B[i]:=a[p,i];

затем поднимаешь все строчки начиная с р-ой и до q

for i:=p to q-1 do
 for j:=1 to m do
   a[i,j]:=a[i+1,j]

теперь, т.к. q-ую строчку мы подняли тогда на ее место вставим массив B (это и есть строчка с номером р)

for i;=1 to m do
 a[q,i]:=b[i];

Что-то в этом роде....

[St1mkA]

Спасибо большое!!