pascal奇数魔阵 源程序代码魔阵是用自然数1,2,3…,n平方（n为奇数）,填n阶方阵的各个元素位置,使方阵的每行的元素之和、每列元素之和及主对角线元素之和均相等.奇数阶魔阵的一个算法是将自然数数列从方阵的中间一行最后一个位置排起,每次总是向右上角排（即A[i,j]的下一个是A[i-1,j+1]）.但若遇以下四种情形,则应修正排数法：n时）,则转排第一列; （2） 行排完（即I
网友回答
var a:array[1..49,1..49] of integer;
n,i,j,count:longint;
beginfillchar(a,sizeof(a),0);
readln(n);
j:=n; i:=n div 2+1; a[i,j]:=1;
for count:=2 to n*n do
begindec(i); inc(j);
if j>n then j:=1;
if i