PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018Внимание! Если программа не работает, обновите версию!begin var m:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var b:=MatrRandom(m,m,-99,99); b.Println(4); Writeln(4*m*'-'); var (s,s1):=(Sqr(b[0,0]),0); for var i:=0 to m-1 do for var j:=0 to m-1 do if i+j<>0 then s1+=b[i,j]; s-=Sqr(s1); Writeln('Результат: ',s)end.
ПримерКоличество строк/столбцов в матрице: 5*** Исходная матрица *** 48 -33 4 -66 28 91 -46 58 11 92 37 -42 8 -12 39 25 65 91 -30 83 -31 -53 36 28 49--------------------Результат: -184320