// 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.
// Внимание! Если программа не работает, обновите версию!
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