PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('Суммы по строкам'); a.Rows.Select(r->r.Sum).Println end.
begin var a := MatrRandom(ReadInteger('m->'), ReadInteger('n->'), -100, 100); a.Println(4); for var i := 0 to a.RowCount - 1 do Println(i + 1, 'строка=', a.Row(i).Sum); end.