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

Ответ

Автор - BobbyFresnel

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.

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.