// PascalABC.NET 3.2, сборка 1370 от 24.12.2016// Внимание! Если программа не работает, обновите версию!begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); var k:=ReadInteger('Номер строки с произведением:'); Writeln('*** Исходный массив [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('П(',k,')=',a.Row(k).Aggregate(BigInteger(1),(x,y)->x*y))end.
ПримерКоличество строк в массиве: 7Количество столбцов в массиве: 12Номер строки с произведением: 5*** Исходный массив [7,12] *** -12 -2 34 -15 -3 -21 -43 -21 -15 -36 -44 30 -6 -4 8 -28 40 46 1 44 -34 23 47 5 -12 -22 10 -10 -2 -44 46 -38 -5 41 -45 26 -2 -47 26 46 -6 -36 1 14 -21 29 9 21 -1 15 20 -37 20 24 -10 15 1 -22 48 -31 19 17 32 -22 -32 44 -15 3 -10 32 25 36 -30 6 0 -48 -29 -17 -24 9 19 39 41 33------------------------------------------------П(5)=4149376450560000