Question

Дан массив из 32 целых чисел, заданных в диапазоне [-52, 47]. Подсчитать в нем количество положительных элементов; найти сумму четных чисел и найти максимальный среди отрицательных элементов массива. Паскаль написать программу

Answer 1

##

var a := ArrRandom(32, -52, 47);

a.Println;

Println(a.Count(n -> n > 0));

Println(a.Where(n -> n.IsEven).Sum);

Print(a.Where(n -> n < 0).Max)