Question

дана вещественная матрица B(m*m). вычислить произведение суммы всех элементов данной и их разность.
Нужно сделать программу на языке Паскаль через размерность.
Среда разработки Pascal ABCNET

Answer 1

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