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.

Answer 2

Хорошо, я помогу вам с этим. Вот примеры кода на Python для выполнения указанных задач: 1. Заполнение массива из 20 целых элементов случайными числами от 5 до 20 и подсчет количества четных элементов: ```python import random # Заполнение массива случайными числами от 5 до 20 array = [random.randint(5, 20) for _ in range(20)] # Вывод исходного массива на экран print("Исходный массив:", array) # Подсчет количества четных элементов even_count = sum(1 for num in array if num % 2 == 0) print("Количество четных элементов:", even_count) ``` 2. Заполнение массива из 10 вещественных элементов вводом с клавиатуры и подсчет среднего арифметического элементов, меньших 1: ```python # Заполнение массива вводом с клавиатуры real_array = [float(input(f"Введите {i+1}-й элемент массива: ")) for i in range(10)] # Подсчет среднего арифметического элементов, меньших 1 filtered_array = [num for num in real_array if num < 1] if len(filtered_array) > 0: average = sum(filtered_array) / len(filtered_array) print("Среднее арифметическое элементов, меньших 1:", average) else: print("В массиве нет элементов, меньших 1.") ``` Скопируйте соответствующий код в вашу среду разработки и запустите его. Он выполнит задачи, описанные в вашем вопросе. Не забудьте ввести 10 вещественных чисел при запуске второй программы.