Вопрос задан 08.08.2023 в 12:59.
Предмет Информатика.
Спрашивает Сафронов Тёма.
Сформировать массив из n(n<=100) случайных целых чисел из [-50;50] и вычислить 1) среднее
арифметическое отрицательных чисел; 2) Сумму чисел кратных 4; 3) произведение чисел из (-10;10).Ответы на вопрос
Отвечает Трефилов Валентин.
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Среднее арифметическое отрицательных чисел: ',
a.Where(x->x<0).Average);
Writeln('Сумма чисел, кратных четырем: ',
a.Where(x->x mod 4=0).Sum);
Writeln('Произведение чисел на интервале [-10;10]: ',
a.Where(x->x.Between(-10,10)).Aggregate(BigInteger(1),(x,y)->x*y))
end.
Пример
n= 90
2 -7 -9 23 49 3 -38 -3 -24 -50 -1 44 -33 -14 -39 42 -29 12 5 -27 35 -46 -23 36 26 18 -30 10 18 25 19 2 28 37 -21 4 40 42 10 23 5 -14 6 -10 35 11 -26 19 45 -36 38 44 29 17 -36 -2 -35 5 47 -19 -17 2 30 1 -18 48 -34 -19 -44 8 -49 -20 -48 32 18 -2 -1 38 -49 -35 -6 1 16 4 37 26 24 -40 23 32
Среднее арифметическое отрицательных чисел: -25.1052631578947
Сумма чисел, кратных четырем: 124
Произведение чисел на интервале [-10;10]: -10450944000000
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Среднее арифметическое отрицательных чисел: ',
a.Where(x->x<0).Average);
Writeln('Сумма чисел, кратных четырем: ',
a.Where(x->x mod 4=0).Sum);
Writeln('Произведение чисел на интервале [-10;10]: ',
a.Where(x->x.Between(-10,10)).Aggregate(BigInteger(1),(x,y)->x*y))
end.
Пример
n= 90
2 -7 -9 23 49 3 -38 -3 -24 -50 -1 44 -33 -14 -39 42 -29 12 5 -27 35 -46 -23 36 26 18 -30 10 18 25 19 2 28 37 -21 4 40 42 10 23 5 -14 6 -10 35 11 -26 19 45 -36 38 44 29 17 -36 -2 -35 5 47 -19 -17 2 30 1 -18 48 -34 -19 -44 8 -49 -20 -48 32 18 -2 -1 38 -49 -35 -6 1 16 4 37 26 24 -40 23 32
Среднее арифметическое отрицательных чисел: -25.1052631578947
Сумма чисел, кратных четырем: 124
Произведение чисел на интервале [-10;10]: -10450944000000
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, я могу помочь вам с этим. Вот пример кода на языке Python, который генерирует массив, выполняет указанные вычисления и выводит результаты:
pythonimport random
def main(n):
# Генерация массива из n случайных целых чисел в диапазоне [-50, 50]
array = [random.randint(-50, 50) for _ in range(n)]
print("Сгенерированный массив:", array)
# Вычисление среднего арифметического отрицательных чисел
negative_numbers = [num for num in array if num < 0]
if negative_numbers:
average_negative = sum(negative_numbers) / len(negative_numbers)
print("Среднее арифметическое отрицательных чисел:", average_negative)
else:
print("Нет отрицательных чисел в массиве")
# Вычисление суммы чисел, кратных 4
multiples_of_4 = [num for num in array if num % 4 == 0]
if multiples_of_4:
sum_multiples_of_4 = sum(multiples_of_4)
print("Сумма чисел, кратных 4:", sum_multiples_of_4)
else:
print("Нет чисел, кратных 4, в массиве")
# Вычисление произведения чисел из (-10, 10)
numbers_between_minus_10_and_10 = [num for num in array if -10 < num < 10]
if numbers_between_minus_10_and_10:
product_between_minus_10_and_10 = 1
for num in numbers_between_minus_10_and_10:
product_between_minus_10_and_10 *= num
print("Произведение чисел из (-10, 10):", product_between_minus_10_and_10)
else:
print("Нет чисел из (-10, 10) в массиве")
n = int(input("Введите количество чисел (n <= 100): "))
if n > 0 and n <= 100:
main(n)
else:
print("Неверное значение n. Пожалуйста, введите число от 1 до 100.")
Просто скопируйте этот код в среду программирования Python и выполните его. Вы можете изменить значение n, чтобы указать количество случайных чисел, которые вы хотите сгенерировать.
Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili
