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

[bonjovi]

Задача! Сформировать матрицу 7х7, обнулить элементы, выделенные крестиком!

Подскажите как это сделать? Ввод - вывод писать не надо, только вот сам блок обнуления! Думаю, картинка понятная=))))

 
 _ _ _ _ _ _ _
|       x        |
|     x x x     |
| x  x x x x   |     
|x x x x x x x|
|   x x x x x  |
|      x x x    |          
|_ _ _ x_ _ _|

Что то он не сохраняет форматирование! Вообщем в центре квадрата находиться ромб , числа в нём надо обнулить

[whatever]

  k:=0;
  for i:=1 to 4 do
    begin
      for j:=4-k to 4+k do
        m[i,j]:=0;
      k:=k+1;
    end;
  k:=k-1;
  for i:=5 to 7 do
    begin
      k:=k-1;
      for j:=4-k to 4+k do
        m[i,j]:=0;
    end;

[bonjovi]

Откуда ж вы такие умные берётесь (В хорошем смысле конечно)=))))
Спасибо большое!

Объясните пожалуйста что и как тут надо делать, а то задачу то я написал, а что к чему тут - не пойму!

[Hacker19_90]

а если сделать один проход?
как бе так

k := 0;
for j := 4 to 7 do 
begin
    for i := (1 + k) to (7 - k) do
    begin
        mas[i, j] := 0;
        mas[i, 7-j+1] := 0;
    end;
    Inc(k);
end;

Пробуйте!

[bonjovi]

Скажите пожалуйста алгоритм действий! Объясните что и как тут надо делать!

[whatever]

Сообщение от bonjovi

Ввод - вывод писать не надо, только вот сам блок обнуления

И какой тебе алгоритм нужен?
Вводишь -> печатаешь -> вставляешь кусок моего кода (матрица m), либо кусок кода Hacker19_90 (матрица mas) -> опять печатаешь всю матрицу

В итоге на экране две матрицы - оригинал и "с ромбом".