// PascalABC.NET 3.2, сборка 1416 от 26.03.2017// Внимание! Если программа не работает, обновите версию!begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); var k:=ReadInteger('Значение k (от 0 до '+(m-1)+'):'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); a.ElementsByRow.Where(x->x mod m=k).Printlnend.
ПримерКоличество строк в массиве: 4Количество столбцов в массиве: 7Значение k (от 0 до 6): 1*** Исходный массив [4,7] *** -76 -31 10 -56 -89 43 71 -96 -9 -26 19 -57 -90 -37 43 -97 -32 -76 48 -17 -28 -27 -27 -24 -68 -16 -13 54----------------------------43 71 43