
Veesned
6 год назад
В двухмерном массиве а ,найти произведение элементов К строки,паскаль
ОТВЕТЫ

Sevir
Jul 8, 2019
// 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)-gt;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
// Внимание! Если программа не работает, обновите версию!
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)-gt;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
300
Смежные вопросы: