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

[Алексей1994]

Здравствуйте уважаемые программисты. Не справился со следующем заданием: Дан двумерный массив. Вставьте строку из нулей перед всеми строками, первый элемент которых делится на 3. Прошу помочь если вас не затруднит! Спасибо за внимание!

[ZX Spectrum-128]

Здравствуйте. Хотелось бы увидеть ваши наработки.

[Алексей1994]

С массивами у меня проблемы. Поэтому особых наработок нет.
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;

[Serge_Bliznykov]

Ну, уже неплохо!
Давайте попробуем вместе решить проблему - как увеличить размера массива?..

подсказываю варианты (можно использовать динамические массивы (ну тут важно какой у Вас компилятор Паскаля),
а можно обеспечить изначально описание статического массива заведомо БОЛЬШЕГО размера, чем MxN

[Алексей1994]

Изменил.Если конечно правильно понял. Но не работает.

var a: array[1..100, 1..100] of integer;
  i, j, n, m: integer;
begin
  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.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Алексей1994]

Изменил.Если конечно правильно понял. Но не работает.

var a: array[1..100, 1..100] of integer;
  i, j, n, m: integer;
begin
  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.
end.

[Serge_Bliznykov]

Вы поняли меня правильно. Но сделали чуть-чуть не так...
Нет фактически ВСТАВКИ новой строки (с изменением количества строк N).
(кстатит, как и другие операции, которые изменяют размерность массива это лучше (хотя и не обязательно) делать с помощью обратного цикла - от последней строки к первой


попробуйте такой код:

var a: array[1..100, 1..100] of integer;
  i, j, k, n, m: integer;
begin
  read(n, m);
  for i := 1 to n do
    for j := 1 to m do
      {read(a[i, j]); } 
      a[i,j] := (i-1)*m + j; {для отладки заполним массив числами от 1 до N*M}

  WriteLn('Исходный массив: ');
  for i := 1 to n do begin
    for j := 1 to m do write(a[i, j]: 3);
    writeln;
  end;


  for i := n downto 1 do
    if a[i, 1] mod 3 = 0 then
    begin
      {сначала сдвинем все строчки от текущей на одну вниз}
      for k:=n downto i do
        for j := 1 to m do
          a[k+1, j] := a[k, j];
      inc(n); {увеличим количество строк}

      {теперь на место исходной строки (которую мы уже сместили вниз
         запишем новую строку, заполненую нулями}
      for j := 1 to m do
          a[i, j] := 0;

    end;


  WriteLn('Результирующий массив: ');
  for i := 1 to n do begin
    for j := 1 to m do write(a[i, j]: 3);
    writeln;
  end;
  Readln
end.

[Алексей1994]

Спасибо вам большое за помощь!

[Алексей1994]

Спасибо вам большое за помощь!