Question

1 задача
Дан массив из 20 целых чисел, заданных в диапазоне [46, 89].
Подсчитать в нем количество элементов кратных 3; найти сумму положительных чисел и найти максимальный среди отрицательных элементов массива.
написать программу на паскале, пожалуйста

Answer 1

##

var a := ArrRandom(20, -46, 89);

a.Println;

Println('Элементов, кратных трем:', a.Count(n -> n mod 3 = 0));

Println('Сумма положительных элементов:', a.Where(n -> n > 0).Sum);

Println('Максимальный среди отрицательных элемент:', a.Where(n -> n < 0).Max)