// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(4,4,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var sn:=a.ElementsByRow.Where(t->t<0).Sum;<br> Writeln('Сумма отрицательных элементов равна ',sn);
var sd:=0;
for var i:=0 to a.RowCount-1 do sd+=a[i,i];
Writeln('Сумма элементов на главной диагонали равна ',sd);
end.
Пример
*** Исходный массив ***
55 -36 70 19
79 14 5 -5
79 -9 -62 20
-71 69 -34 66
----------------
Сумма отрицательных элементов равна -217
Сумма элементов на главной диагонали равна 73