Дан целочисленный массив из 21 элементов. Если сумма всех элементов четная, нужно вывести количество нечетных (по значению) элементов массива, если нечетная - количество четных. Например, для массива из 6 элементов, равных соответственно 2, 6, 12, 17, 3, 8, ответом будет 2 - кол-во нечетных элементов, так как общая сумма всех элементов четна. Массив отсортировать.
Задание нужно выполнить на языке Pascal.

Ответ

Автор - BobbyFresnel

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

begin

var a := ArrRandom(21, -99, 99);

a.Println;

Print('Найдено элементов:');

if a.Sum.IsEven then

Println(a.Count(p -> p.IsOdd))

else

Println(a.Count(p -> p.IsEven));

Writeln('Отсортированной по неубыванию массив:');

a.Sorted.Println

end.

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

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