Задан двумерный целочисленный массив В размера n × n (1 ≤ n ≤ 10). ** одном из языков...

+555 голосов
1.8m просмотров

Задан двумерный целочисленный массив В размера n × n (1 ≤ n ≤ 10). На одном из языков программирования (Pascal, C++, Python, алгоритмический язык) выведите «YES», если он является симметричным относительно главной диагонали, иначе выведите «NO». (по возможности сделайте ещё и блок схему, но в первую очередь программу)


Информатика | 1.8m просмотров
Дан 1 ответ
+165 голосов

PascalABC.NET ₃.₆.₃.₂₅₇₇

Ответ:

  • ##
  • var n := ReadInteger('n:');
  • var B := MatrRandom(n, n, -99, 99).Print;
  • Print(MatrEqual(B, Transpose(B)) ? 'YES' : 'NO')

Пример работы:

(3.7k баллов)