Вставка строки в двумерном массиве Опции

[mugler02]

Прошу помочь разобраться с решением задачи:

В двумерном массиве вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей.

Заранее спасибо.

[Lapp]

В двумерном массиве вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей.

Как-то вот так:

var
  a: array [1..m,1..n] of integer;

...
begin
  ...
  for i:=m downto 1 do
    if a[i,1] mod 3=0 then begin
      for j:=m-1 downto i do a[j+1]:=a[j];
      for j:=1 to n do a[i,j]:=0
    end;

Только ты имей в виду, что, поскольку строки сдвигаются при вставке, то последние исчезают.