Question

Задать двумерный массив 6 на 6 случайным образом.Числа выбираются из отрезка от -10 до 10.В данном массиве найти сумму нечетных отрицательных и количество положительных чисел кратных пяти

Answer 1

===== PascalABC.NET =====

begin

 var a := MatrRandom(6, 6, -10, 10);

 a.Println;

 var s := a.ElementsByRow;

 Print('Сумма нечетных отрицательных:',

     s.Where(p -> p.IsOdd and (p < 0)).Sum,

     'Кол-во положительных кратных 5:',

     s.Count(p -> (p > 0) and (p mod 5 = 0)))

end.