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.
Внимание! Если программа не работает, обновите версию!
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.
//Версия 3.3, сборка 1634 (14.02.2018)
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.
Пример:
m-> 4
n-> 5
-77 -22 53 -27 -36
91-100 53 -63 4
-76 -81 -73 -8 0
-87 -57 -6 -10 86
1 строка= -109
2 строка= -15
3 строка= -238
4 строка= -74