Question

Viết chương trình nhập vào số tự nhiên N (N lẻ), sau đó điền các số từ 1 đến n² vào trong một bảng vuông sao cho tổng các số hàng ngang, hàng dọc và 2 đường chéo đều bằng nhau (bảng này được gọi là Ma phương). In ra màn hình Ma phương và tổng các hàng ngang, hàng dọc và 2 đường chéo.

Answer 1

uses crt;
var a:array[1..100,1..100]of integer;
n,i,j,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=n div 2+1;
j:=n div 2+2;
for k:=1 to sqr(n) do
begin
a[i,j]:=k;
if k mod n=0 then j:=j+2
else begin
inc(j);
dec(i);
end;
if j>n then j:=j mod n;
if i=0 then i:=n;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln;
end.