3 3 3 3 3 3 3
3 2 2 2 2 2 3
3 2 1 1 1 2 3
3 2 1 0 1 2 3
3 2 1 1 1 2 3
3 2 2 2 2 2 3
3 3 3 3 3 3 3

我的源代码：
program project1;
var
j,k,l,m,n,o,p:longint;
i:array [1..7,1..7] of integer;
t:text;
begin
assign(t,'E:\dw.ly');
rewrite(t);
for j := 1 to 7 do
for k := 1 to 7 do
begin
l:=abs(j-k-1);
m:=abs(k-j-1);
if l>m then i[j,k]:=l
else i[j,k]:=m;
write(t,i[j,k]);
if k=7 then writeln(t)
else write(t,' ');
end;
writeln(t,'Example:');
writeln(t,'3 3 3 3 3 3 3');
writeln(t,'3 2 2 2 2 2 3');
writeln(t,'3 2 1 1 1 2 3');
writeln(t,'3 2 1 0 1 2 3');
writeln(t,'3 2 1 1 1 2 3');
writeln(t,'3 2 2 2 2 2 3');
writeln(t,'3 3 3 3 3 3 3');
close(t);
end.
但是输出的是：
1 2 3 4 5 6 7
2 1 2 3 4 5 6
3 2 1 2 3 4 5
4 3 2 1 2 3 4
5 4 3 2 1 2 3
6 5 4 3 2 1 2
7 6 5 4 3 2 1

@革命家的右手 @EXPsta @fp4869

现在的dw.ly：
1 2 3 4 5 6 7
2 1 2 3 4 5 6
3 2 1 2 3 4 5
4 3 2 1 2 3 4
5 4 3 2 1 2 3
6 5 4 3 2 1 2
7 6 5 4 3 2 1
Example:
3 3 3 3 3 3 3
3 2 2 2 2 2 3
3 2 1 1 1 2 3
3 2 1 0 1 2 3
3 2 1 1 1 2 3
3 2 2 2 2 2 3
3 3 3 3 3 3 3

怎么让它变成
3 3 3 3 3 3 3
3 2 2 2 2 2 3
3 2 1 1 1 2 3
3 2 1 0 1 2 3
3 2 1 1 1 2 3
3 2 2 2 2 2 3
3 3 3 3 3 3 3
Example:
3 3 3 3 3 3 3
3 2 2 2 2 2 3
3 2 1 1 1 2 3
3 2 1 0 1 2 3
3 2 1 1 1 2 3
3 2 2 2 2 2 3
3 3 3 3 3 3 3

你在干嘛。。

writeln(' 3 3 3 3 3 3 3
3 2 2 2 2 2 3
3 2 1 1 1 2 3
3 2 1 0 1 2 3
3 2 1 1 1 2 3
3 2 2 2 2 2 3
3 3 3 3 3 3 3 ')

卧槽楼上碉堡了……
——啦啦啦啦啦啦啦啦啦啦啦啦

输出回形矩阵：
1 1 1 1 1
1 2 2 2 1
1 2 3 2 1
1 2 2 2 1
1 1 1 1 1
var a:array[1..20,1..20]of longint;
i,j,n,k:longint;
begin
read(n);
for i:=1 to (n+1)div 2 do
begin
for j:=1 to (n+1)div 2 do
begin
if i>j then begin k:=j;a[i,j]:=k;end
else begin k:=i;a[i,j]:=k;end;
a[i,n-j+1]:=a[i,j];
a[n-i+1,j]:=a[i,j];
a[n-i+1,n-j+1]:=a[i,j];
end;
end;
for i:=1 to n do
begin
for j:=1 to n-1 do write(a[i,j],' ');
writeln(a[i,n]);
end;
end.