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

Ответы 1

  • // 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
    • Автор:

      randy39
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years