Question

Заполните одномерный массив случайными числами Найдите среднее арифметическое положительных элементов этого массива

Answer 1

===== PascalABC.NET ======

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a.Where(p -> p > 0).Average.Println

end.

Answer 2

Конечно! Вот пример кода на языке Python, который заполняет одномерный массив случайными числами и находит среднее арифметическое положительных элементов этого массива:

pythonCopy code
import random

# Задаем размер массива
n = 10

# Заполняем массив случайными числами от -50 до 50
array = [random.randint(-50, 50) for _ in range(n)]

# Выводим исходный массив
print("Исходный массив:", array)

# Находим положительные элементы массива
positive_elements = [x for x in array if x > 0]

# Проверяем, есть ли положительные элементы в массиве
if len(positive_elements) > 0:
    # Вычисляем среднее арифметическое положительных элементов
    average = sum(positive_elements) / len(positive_elements)
    print("Среднее арифметическое положительных элементов:", average)
else:
    print("В массиве нет положительных элементов.")

Пример вывода:

lessCopy code
Исходный массив: [34, -5, 18, 0, -12, 45, -2, 10, -9, 27]
Среднее арифметическое положительных элементов: 28.666666666666668

Обратите внимание, что каждый раз при запуске кода будут генерироваться новые случайные числа, поэтому результаты могут отличаться.