Двумерный массив. квадрат

[morgan97]

Надо сформировать с помощью двумерного массива магический квадрат.
В магическом квадрате сумма чисел в каждой строке, каждом столбце и на обеих диагоналях одинакова!!!

[morgan97]

хотя бы не программу а наводку как это осуществить

[Shift_sk]

var a:array[1..100,1..100] of integer;
      n,i,j:integer;
begin
read(n);
for i:=1 to n do begin
for j:=1 to n do
a[i,j]:=i;
end;
for i:=1 to n do begin
writeln;
for j:=1 to n do
write(a[i,j],' ');
end;
end.

так пойдет?

[Shift_sk]

вот тым было пару ошибок)

[Shift_sk]

ой не правильно сделал.....в принцепе можно сделать через random...тоесть первый столбик заполняем рандомно а остальные проверяем...стас попробую!

[morgan97]

Но здесь получается вывод обычного массива с элементами от 1 до n

[Shift_sk]

чет не думаетсья.