Определить, является ли заданная целая квадратная матрица n-го порядка симметричной(относительно главной диагонали)​

Информационный размер статьи i=k*i, где k-количество символов в статье, i- количество бит на  один символ. 1) k=32*40*64= 81920 i= 81920*8= 655360 бит 655360 бит/8= 81920 байт 81920 байт/1024= 80 кбайт ответ: 80 кбайт 2)k=48*40*40= 76800 i=76800*8= 614400 бит 614400 бит/8= 76800 байт 76800 байт/1024= 75 кбайт ответ: 75 кбайт 3)k=64*40*48= 122880 i=122880*8= 983040 бит 983040 бит/8= 122880 байт 122880 байт/1024= 120 кбайт ответ: 120 кбайт 4)k=64*40*64= 163840 i=163840*8= 1310720 бит 1310720 бит/8=163840 байт 163840 байт/1024= 160 кбайт ответ: 160 кбайт

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var a: =matrgen(6,7,(i,j)-> sin(i+1)+cos(3*(j+;   a.println(10,6); writeln(70*'-');   var b: =a.elementswithindexes.where(t-> t[1].iseven and t[2].iseven)           .select(t-> t[0]).toarray;   b.println;   var m: =b.where(t-> t> 0).defaultifempty.average;   writeln('искомое среднее равно ',m);   var f: =openwrite('myfile.txt');   for var i: =0 to a.rowcount-1 do begin       for var j: =0 to a.colcount-1 do           write(f,a[i,j],' ');       writeln(f);       end;   writeln(f);   for var i: =0 to b.length-1 do write(f,b[i],' ');   f.close; end.