Question

Заполнить массив из 20 целых элементов случайными числами из диапазона от 5 до 20. Обеспечить вывод исходного массива на экран. Подсчитать количество чётных элементов массива. Дан массив из 10 вещественных элементов. Обеспечить заполнение массива в клавиатуры. Подсчитать среднее арифметическое элементов массива, меньших 1. Помогите решить, сроооочно, на завтра!!!!!

Answer 1

                                         PascalABC.NET

1)

begin

 var mas := ArrRandom(20,5,20).Println.Where(x -> x.IsEven).Count.Println

end.

2)

begin

 var mas := ReadArrReal(10).Where(x -> x < 1).Average.Println;

end.