Question

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

Answer 1

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

Ответ:

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

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