Создать изображение в виде "1" и "0", Заполнить массив Опции

[Gl00M]

Как уже Volvo подсказал, задача "Заполнить массив n на n по следующей схеме:"

1111111
0111110
0011100
0001000
0011100
0111110
1111111

решается давольно таки легко...
а как решить задачу по схеме:

111101111
111000111
110000011
100000001
000111000
100000001
110000011
111000111
111101111

P.S. Вот что подсказал по поводу первой:

Код

function min(a, b: integer): integer;
begin
  min := a; if b < a then min := b;
end;
function max(a, b: integer): integer;
begin
  max := a; if b > a then max := b;
end;
begin
  ...
  For i:=1 to n do begin
    for j := min(1 + i - 1, n - i + 1) to max(1 + i - 1, n - i + 1) do
      a[i, j] := 1;
  end;
  { ... и печатай матрицу ... }
  ...
end.

За что ему спасибо!

И, кто поможет мне, тоже отдельная благодарностЬ! )))

[klem4]

У меня вот что вышло :

uses crt;

const

  n = 9;

type

  TMx = array[1..n, 1..n] of byte;

function GetMatrix: TMx;
var
  i, j: Integer;
  r: TMx;
begin

  FillChar(r, sizeof( r ), 1);

  for i := 1 to n div 2 + 1 do
   for j := (n div 2 + 1) - pred(i) to (n div 2 + 1) + pred(i)
    do r[i, j] := 0;

  for i := n div 2 + 2 to n do
   for j := i - n div 2 to n - ( i - n div 2 - 1)
    do r[i, j] := 0;

  GetMatrix := r;

end;

procedure Print(mx: TMx);
var
  i, j: Integer;
begin
  for i := 1 to n do begin
    writeln;
    for j := 1 to n do
     write(mx[i, j]:2);
  end;
end;

begin
  clrscr;
  Print(GetMatrix);
  readln;
end.

Только в середину надо вставить единички, ибо как это в цикле сделать ума не приложу ...

что-то я припозднился