В двухмерном массиве а ,найти произведение элементов К строки,паскаль

В двухмерном массиве а ,найти произведение элементов К строки,паскаль
Гость
Ответ(ы) на вопрос:
Гость
// 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы