двумерный массив. ковёр

[olchik1980]

Изображение квадратного ковра состоит из n на n фигур. Координата каждой фигуры F[I,j]. Точка может иметь только 2 цвета: черный или белый. Если фигура черная, то K[I,j]=1, если белая, то K[I,j]=0. Для станка необходимо придумать такую программу которая запросит размер ковра n, сформирует в памяти массив у которого элементы диагоналей равны 1(черный), а не принадлежащие диагоналям элементы равны 0 (белый). Станок произведет ковер с заданным рисунком. В нашем случае выйдет на экран матрица из нулей и единиц.
вх: 1
вых: 0

[Sciv]

Ну ради разнообразия - вот Вам код:

ReadLn(n);
for i:=1 to n do
  for j:=1 to n do
    if (i=j) or (j=n-i+1) then F[i,j]:=1 else F[i,j]:=0;