магический квадрат

[ДеТкА]

Магический квадрат. Магическим квадратом порядка n называется квадратная таблица
размером n?n, состоящая из чисел 1,2,…, n2 так, что суммы по каждому столбцу, каждой
строке и каждой из двух диагоналей равны между собой. Проверить, является ли заданная
целочисленная квадратная матрица магическим квадратом

[Serge_Bliznykov]

редкий случай, когда алгоритм решения фактически уже описан в условии задачи. найдите сумму главной диагонали (или первой строки (или первого столбца). а потом в цикле находите суммы элементов по строкам, потом по столбцам, каждый раз сравнивая с найденной первой суммой. Если не совпала - сообщение о том, что "не магический квадрат" и прерывание. Дошли до конца всех циклов (значит, все суммы совпадали) - квадрат магический.

а что, собственно, у Вас не получается?! не знаете, как найти сумму элементов по столбцу? или как найти сумму по строке?

для затравочки поиск суммы по главной диагонали:

  sum1 := 0;
  for i:=1 to n do
        sum1 := sum1 + a[i,i];
....

[Poma][a]

а что, собственно, у Вас не получается?! не знаете, как найти сумму элементов по столбцу? или как найти сумму по строке?

отвечу за ТС, у неё не получается всё, кроме кросспостинга, называния тем не по правилам и клоноводства.

[SlavaSSU]

делал такую лабу) вроде можно проверить только строки и столбцы, и если суммы равны, то на диагоналях будут те же суммы)

[Serge_Bliznykov]

вроде можно проверить только строки и столбцы, и если суммы равны, то на диагоналях будут те же суммы)

Вы ошибаетесь.

в качестве наглядного примера прошу рассмотреть такую матрицу:

1 3 2
2 1 3
3 2 1

сумма по главной явно не равна 6 (как по строкам/столбцам)