Question

1 Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а также их количество.

2 Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке убывания их индексов, а также их количество.

3 Дан целочисленный массив размера N. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем все содержащиеся в данном массиве нечетные числа в порядке убывания их индексов.

4 Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве числа, кратные 3 в порядке возрастания их индексов, а также их количество и сумму.

5 Дан массив размера N. Вычислить среднее арифметическое элементов массива и вывести результат.

Answer 1

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