1 Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а также их количество.
2 Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке убывания их индексов, а также их количество.
3 Дан целочисленный массив размера N. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем все содержащиеся в данном массиве нечетные числа в порядке убывания их индексов.
4 Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве числа, кратные 3 в порядке возрастания их индексов, а также их количество и сумму.
5 Дан массив размера N. Вычислить среднее арифметическое элементов массива и вывести результат.
// PascalABC.NET 3.6
begin
var n := ReadInteger('N =');
var a := ArrRandom(n, -99, 99);
a.Println;
a.Where(p -> p.IsEven).Println.Count.Println; // 1
a.Where(p -> p.IsOdd).Reverse.Println.Count.Println; // 2
(a.Where(p -> p.IsEven) + a.Where(p -> p.IsOdd).Reverse).Println; // 3
var s := a.Where(p -> p mod 3 = 0).Println; // 4
Println(s.Count, s.Sum); // 4
a.Average.Println // 5
end.