В строках с отрицательным элементом на главной диагонали найдите?

[nikitasa]

Пусть дана вещественная квадратная матрица порядка 10. В строках с отрицательным элементом на главной диагонали найдите:
a)сумму элементов;
b)наибольший из элементов; на языке Pascal ABC

[Alex314]

## // PascalABC.NET 3.8.3
var n := 10;
var a := MatrRandomReal(n, n, -99, 99);  // создали массив
a.Transform(t -> Round(t, 1));             // округлили элементы до 0.1
a.Println(7, 2);                           // вывели матрицу
for var i := 0 to n - 1 do
  if a[i, i] < 0 then Println(a.Row(i).Sum, a.Row(i).Max)