В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
ilovemath777
ilovemath777
06.09.2021 23:54 •  Информатика

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

Показать ответ
Ответ:
daniil359
daniil359
05.10.2020 01:32
// 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
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота