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

[mugler02]

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

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

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

[Ponkole]

Вот код без считывания из фаила:

var a:array [1..100, 1..100] of integer;
     i,j, n, m:integer;
begin
//1
// считывание 
read(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
//основная обработка
for i:=1 to n do
if a[i,1] mod 3 =0 then 
begin
for j:=1 to m do
a[i,j]:=0;
end;
//вывод ответа
for i:=1 to n do begin
writeln;
for j:=1 to m do
write(a[i,j]:3);
end;
end.

если нужна работа с фаилами вставь вместо //1 код:

assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);

в коде можешь поменять 'input.txt' и 'output.txt' (фаилы ввода / вывода)

[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('Удаление столбца:');
…

Как думаете, верно?

[NioTo]

В задании написано, что надо найти элемент с четным значением, а в программе ищется с нечетным. И используется псевдоуменьшение столбцев, не знаю прокатит такое или нет...

[Ponkole]

Оцени если несложно мой труды + ом
и по мему неправильно реализован алгоритм поиска первого нечетного отрицательного числа

...
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;
...

Этот код находит последний элемент, удовлеворяющий условию. Чтобы найти первый элемент я советую поменять его на

k:=0;
for j:=1 to n do
 begin
  for i:=1 to m do
        if k=0 then // это всё
  if (a[i,j]<0)and (a[i,j]) mod 2 <> 0 then{если отрицательный и нечетный}
        k:=j;{запоминаем номер столбца}
 end;

И, как я понял условие, нужно искать другим способом - идеш по строкам ишешь в столбцах, а ты делаешь наоборот идешь по столбцам ишешь в строках, так что замени на:

k:=0;
for i :=1 to m do
 begin
  for j :=1 to n do
   if k=0 then
  if (a[i,j]<0)and (a[i,j]) mod 2 <> 0 then{если отрицательный и нечетный}
        k:=j;{запоминаем номер столбца}
 end;

[Ponkole]

Если не трудно оцени работу +ом и комментарием