Заполнить массив из 20 целых элементов случайными числами из диапазона от 5 до 20. Обеспечить вывод исходного массива на экран. Подсчитать количество чётных элементов массива. Дан массив из 10 вещественных элементов. Обеспечить заполнение массива в клавиатуры. Подсчитать среднее арифметическое элементов массива, меньших 1. Помогите решить, сроооочно, на завтра!!!!!
Ответы
Ответ дал:
0
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.
Приложения:
![](https://st.uroker.com/files/199/19935fadbbfbfa4b205a050bd0676b0f.png)
![](https://st.uroker.com/files/be4/be4da2a3883146394920dbc30bedbd37.png)
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад