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

[mugler02]

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

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

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

[mugler02]

То есть верно будет так?

Код

k:=0;
for j:=1 to n do
begin
  for i:=1 to m do
  if (a[i,j]<0)and (a[i,j]) mod 2 =0 then
        k:=j;
end;
if k=0 then write('В матрице нет отрицательных нечетных элементов')
else
begin
  writeln('Номер первого столбца с нечетным отрицательным элементом=',k);
  for i:=1 to m do{всем элементы всех строк}
  for j:=k to n-1 do{от номера столбца до предпоследнего}
  a[i,j]:=a[i,j+1];{присваиваем значение следующего}
  n:=n-1;{уменьшаем количество столбцов}
end;
writeln('Удаление столбца:');
…

[Lapp]

То есть верно будет так?

Нет.
Можно вот так:

k:=0;
for j:=1 to n do begin
  for i:=1 to m do
    if (a[i,j]<0)and (a[i,j]) mod 2<>0 then begin
      k:=j;
      break
    end;
  if k>0 then break
end;

Но лучше использовать цикл while. Еще один вариант (самый красивый)) - использовать функцию и выходить из нее во внутреннем цикле.