-вставить между средними строками первую строку в массиве

[Lizakotenkova]

дан двуменый массив 8на7 заполненный случайным образом.
-вставить между средними строками первую строку
(желательно кратко)

[BDA]

После вставки строки получится массив 9 на 7.
При вставке нужно переместить нижнюю часть массива на строку ниже.
Я надеюсь, что массив вы сформируете и сможете вывести.
Сама вставка:

for i:=9 downto 6 do
	for j:=1 to 7 do
		a[i,j]:=a[i-1,j];
for i:=1 to 7 do
	a[5,i]:=a[1,i];

[Stilet]

Это уже 9х7 массив будет.
Покажи как ты вводишь массив

[Lizakotenkova]

через random

[s-andriano]

Я вижу 2 варианта решения проблемы.

1. Порядок:
- перенести информацию из первой строки в дополнительно выделенный массив,
- сдвинуть нижнюю половину вниз на одну строку,
- вставить информацию, скопированную из первой строки в нужное место.
Недостатки:
- требуется дополнительная память (которую, впрочем, при некотором изменении алгоритма можно сократить до одного элемента),
- реализация требует перемещения больших фрагментов памяти (более половины объема массива) - O(N).

2. Заменить массив на несколько иную структуру, например, на одномерный массив указателей на строки. При этом перемещать придется только указатели, а не сами данные - O(sqrt(N)).
Примечание: Вместо массива можно использовать список, тогда собственно перемещение O(1), но, учитывая невозможность доступа непосредственно к середине списка, поиск O(sqrt(N)).

[Serge_Bliznykov]

в дополнение ко всему вышесказанному добавлю:

массивы в Delphi/Pascal при присвоении позволяют оперировать целыми строками.
см. тему: Забавная и малоизвестная особенность работы с массивами в Pascal/Delphi
в этой связи решение (предложенное выше BDA) вырождается в такое:

полный код программы

{ дан двуменый массив 8на7 заполненный случайным образом.  
-вставить между средними строками первую строку
}

var a: array[1..9, 1..7] of integer;
    i,j : integer;
begin
  {заполним массив случайными элементами}
  Randomize;
  for i := 1 to 8 do
    for j := 1 to 7 do
      a[i, j] := Random(99) + 1;

  
  {выведем массив на экран}
  WriteLn('Исходный массив: ');
  for i := 1 to 8 do begin
    for j := 1 to 7 do Write(a[i, j]:2,' ');
    WriteLn;
  end;


  {сдвинем строки 5-8 на одну вниз -
    дополнительную 9-ю строку в массиве мы заранее предусмотрели!}
  for i:=8 downto 5 do
     a[i+1] := a[i];

  {в освободившееся место вставить первую строку}
  a[5]:=a[1];


  {выведем полученный массив на экран}
  WriteLn;
  WriteLn('Полученный массив 9x7: ');
  for i := 1 to 9 do begin
    for j := 1 to 7 do Write(a[i, j]:2,' ');
    WriteLn;
  end;


  Readln
end.

[BDA]

Serge_Bliznykov, да, удобное сокращение (постоянно о нем забываю ).