Question

написать программу, заполняющую массив из 23 чисел [-40..80]: Вывести массив, Отсортировать массив по возрастанию, определить в этом массиве сумму всех отрицательных чисел кратных четырем.

Answer 1

begin

 var a := ArrRandom(23, -40, 80);

 a.Println;

 a.Sort;

 a.Println;

 a.Where(p -> (p mod 4 = 0) and (p < 0)).Sum.Println

end.