Question

Срочно! Дан одномерный массив из 20 целых чисел

а) найти минимальный отрицательный элемент массива

б) найти количество нечётных элементов массива и заменить все чётные на это количество.

в) Найти сумму всех отрицательных и кратных пяти элементов массива

Answer 1

===== 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.