Составьте программу ,заполнения массива a[i, j] нулями и единицами в форме ромба

Question

Составьте программу ,заполнения массива a[i, j] нулями и единицами в форме ромба

Answer 1

var

 A: array [1..9, 1..9] of Integer;

 i, j: Integer;

begin

 WriteLn ('Массив:');

 for i := 1 to 9 do begin

   for j := 1 to 9 do begin

     if Abs (i - 5) + Abs (j - 5)

       A [i, j] := 1

     else

       A [i, j] := 0;

   end;

 end;

 for i := 1 to 9 do begin

   for j := 1 to 9 do begin

     Write (A [i, j], ' ');

   end;

   WriteLn;

 end;

end.