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

Question

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

Comments

легко сделаю,надеюсь, язык не ПаскальЮ

---

или Паскаль?

---

паскаль к сожелению

---

тогда сорян, в такое дерьмо я не полезу (

---

я могу общий алгоритм решения сказать, так сможешь его реализовать в своем паскале?

---

Такое смешное задание... на пару минут

---

Хорошо, что не на убогом Питоне))

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.

---