В массиве F(1:2, 1:3) определить сумму S элементов второй строки и каждый элемент...

Question

В массиве F(1:2, 1:3) определить сумму S элементов второй строки и каждый элемент третьего столбца умножить на S.
В паскале.

Answer 1

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var f:=MatrRandom(2,3,-99,99);
  f.Println(8); Writeln(8*f.ColCount*'-');
  var s:=f.Row(1).Sum;
  Writeln('Сумма по 2й строке равна ',s);
  Writeln('*** Полученный массив ***');
  f.SetCol(2,f.Col(2).Select(t->t*s).ToArray);
  f.Println(8)
end.

Пример
*** Исходный массив ***
     -74     -10      38
     -89      91     -18
------------------------
Сумма по 2й строке равна -16
*** Полученный массив ***
     -74     -10    -608
     -89      91     288