Матрицы (Паскаль)

[finito_solo]

Определить является ли целочисленная квадратная матрица магическим квадратом

[Novi4ok_11]

Ну тут несколько способов решить данную задачю:
1. Это посчитать все суммы и потом их сравнить
2. Сумы элементов строк, стоблцов и диагоналей поместить в массив а потом этот массив просмотреть, если в нем все элементы одинаковы то это Ваш магический квадрат

[finito_solo]

1 способ подошёл бы идеально.

[Novi4ok_11]

Ну тогда к примеру у нас 2х2 матрица, сумм будет 6

var s1,s2,s3,s4,s5,s6:integer;

Поиск сумм на диагоналях:

for i:=1 to 2 do 
begin
  for j:=1 to 2 do
     begin
       if (i=j) then s5:=s5+a[i,j];
     end;
end;

for i:=2 downto 1 do 
begin
  for j:=1 to 2 do
     begin
       if (i=j) then s6=s6+a[i,j];
     end;
end;

Поиск по строке:

  for j:=1 to 2 do
     begin
      s1:=s1+a[1,j];
     end;

  for j:=1 to 2 do
     begin
      s2:=s2+a[2,j];
     end;

По столбцу:

  for i:=1 to 2 do
     begin
      s3:=s3+a[i,1];
 end;

  for i:=1 to 2 do
     begin
      s4:=s4+a[i,2];
 end;

И сравнить все

if s1=s2=s3=s4=s5=s6 then write('Magi4eskaya');

Все

[Serge_Bliznykov]

Novi4ok_11, в вашем решении есть ошибки (побочную диагональ Вы неправильно считаете - там i не равняется j),
не очень эффективные алгоритмы,
(например, чтобы подсчитать сумму по главной диагонали достаточно ОДНОГО цикла

  s := 0;
  for i:=1 to N do s := s + a[i,i];

ну и последнее - лучше подсчитать одну сумму. (например, сумму элементов главной диагонали. - пример чуть выше)
Потом подсчитывать другие суммы в цикле ПО ОДНОЙ и сверять полученные суммы с первой. Если не совпало - всё, цикл можно прерывать - квадрат не магический. Если же прошли все проверки - то квадрат магический. это позволит избежать создания переменных s1,s2, s3 и т.д....

[Novi4ok_11]

Согласен польностью с Вами, что можно оптимизировать программу, я ж просто что в голову пришло первое то и написал, за побочную - да что то затупил, сорри