Дана вещественная матрица b(m*m). вычислить произведение суммы всех элементов данной и их разность. нужно сделать программу на языке паскаль через размерность. среда разработки pascal abcnet
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.
Внимание! Если программа не работает, обновите версию!
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