Question

ПОМОГИТЕ, ПОЖАЛУЙСТА.
1. Задать массив из 12 элементов датчиком случайных чисел. Найти сумму чисел больших 5.
2. Задать массив из 6 элементов с клавиатуры. Найти количество чётных чисел.

Answer 1

                                                  PascalABC.NET

1)

begin

 ArrRandom(12, 0, 10).Where(x -> x > 5).Sum.Print

end.

2)

begin

 ReadArrInteger('Введите массив:', 6).Where(x -> x.IsEven).Count.Print

end.