Помогите!!!Дана целая квадратная матрица, n- го порядка. Найти, является ли она

Помогите!!!
Дана целая квадратная матрица, n- го порядка. Определить, является ли она волшебным квадратом, т.е. суммы частей во всех ее строках и столбцах однообразные.

Задать свой вопрос
1 ответ
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var n := ReadInteger('n-gt;');
  var m := ReadMatrInteger(n, n);
  var (a, b) := (m.Rows.Select(t -gt; t.Sum).Distinct, m.Cols.Select(t -gt; t.Sum).Distinct);
  if (a.Count gt; 1) or (b.Count gt; 1) or (a.First lt;gt; b.First) then Println('Квадрат не волшебный') else Println('Квадрат магический')
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт