
Составьте программу , которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1
до 10 и вычисляет среднее арифметическое элементов массива с чётными значениями . Помогите пж.

Ответы на вопрос

// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(10, 1, 10);
a.Println;
a.Where(t->t.IsEven).DefaultIfEmpty.Average.Println;
end.
Пример
9 9 10 1 1 6 10 8 2 9
7.2



Код программы на языке Python, который заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет среднее арифметическое элементов массива с чётными значениями:
pythonimport random
a = [random.randint(1, 10) for i in range(10)] # заполняем массив случайными числами от 1 до 10
sum = 0 # сумма элементов массива с четными значениями
count = 0 # количество элементов массива с четными значениями
for i in range(10):
if a[i] % 2 == 0: # если элемент четный
sum += a[i] # добавляем его к сумме
count += 1 # увеличиваем счетчик элементов
if count == 0: # если в массиве нет четных элементов
print("В массиве нет четных элементов")
else:
avg = sum / count # вычисляем среднее арифметическое
print("Среднее арифметическое четных элементов:", avg)
Код работает следующим образом:
Импортируем модуль
random
, который позволяет генерировать случайные числа.Создаем массив
a
и заполняем его случайными числами от 1 до 10.Создаем переменные
sum
иcount
для хранения суммы элементов массива с четными значениями и количества таких элементов соответственно. Изначально они равны 0.Запускаем цикл
for
, который проходит по всем элементам массиваa
.Внутри цикла проверяем, является ли текущий элемент четным числом. Если да, то добавляем его к сумме и увеличиваем счетчик элементов.
После завершения цикла проверяем, были ли в массиве четные элементы. Если нет, то выводим соответствующее сообщение. Если да, то вычисляем среднее арифметическое четных элементов и выводим его на экран.


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili