Поделитесь своими знаниями, ответьте на вопрос:
Дан одномерный массив из 20 целых чисел а) найти минимальный отрицательный элемент массива б) найти количество нечётных элементов массива и заменить все чётные на это количество. в) найти сумму всех отрицательных и кратных пяти элементов массива
===== PascalABC.NET =====
begin
var a := ArrRandom(20, -99, 99);
a.Println;
a.Where(p-> p < 0).Min.Println; // a)
// b
var k := a.Count(p -> p.IsOdd);
a.Transform(p -> p.IsEven ? k : p);
a.Println;
// c
a.Where(p -> (p < 0) and (p mod 5 = 0)).Sum.Println
end.