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