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

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

Показать ответ
Ответ:
кристина1423
кристина1423
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-бота