[freepascal]矩阵问题描述输入一个矩阵的行数，输出对应的图形（对角线数据为0，其余为1）。输入格式输入数据只有一个整数n，表示矩阵有n行n列。输出格式输出n行，每行n个

Question

[free pascal]矩阵
问题描述
　　输入一个矩阵的行数，输出对应的图形（对角线数据为0，其余为1）。
输入格式
　　输入数据只有一个整数n，表示矩阵有n行n列。
输出格式
　　输出n行，每行n个数据，每个数之间有一个空格。
样例输入
5
样例输出
0 1 1 1 0
1 0 1 0 1
1 1 0 1 1
1 0 1 0 1
0 1 1 1 0


Answer 1

program Matrix;
var
n, head, tail, i, j: Integer;
begin
Readln(n);
head := 1;
tail := n;
for i := 1 to n do
begin
for j := 1 to n do
if (j <> head) and (j <> tail) then
Write('1 ')
else Write('0 ');
Writeln;
Inc(head);
Dec(tail);
end;
Readln;
end.