Вопрос по информатике:
Найти произведение неположительных элементов двумерного массива целых чисел кратных 4
Пожаловаться
- 27.10.2017 06:06
- Информатика
- remove_red_eye 5007
- thumb_up 48
Ответы и объяснения 1
PascalABC.NET 3.4, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
a.ElementsByRow.Where(t->(t<=0) and (t mod 4=0))
.Aggregate(BigInteger(1),(p,q)->(p*q)).Println
end.
Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
a.ElementsByRow.Where(t->(t<=0) and (t mod 4=0))
.Aggregate(BigInteger(1),(p,q)->(p*q)).Println
end.
Пожаловаться
- 28.10.2017 17:06
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы