Question

Разработать программу, подсчитывающую количество чётных по значению элементов динамического одномерного массива размерности n.
~Pascal~

Answer 1

Решение представлено во вложении.

Язык: Pascal

Answer 2

##

var n := ReadInteger;

var a := ArrRandom(n, -99, 99);

a.Println.Where(t -> t.IsEven).Count.Print