Question

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

Answer 1

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