
Составить программу для вычисления произведения положительных элементов массива целых чисел X[20]


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

Программа:
a:array[1..20] of integer;
var
k:integer;
begin
k:=1;
for i:=1 to 20 do
if a[i]>0 then k:=k*a[i];
writeln(k);
end.
Текст:
Сегодня количество стран которые принимают участие в олимпийских играх гораздо больше чем дисциплин в которых участвуют атлеты. Как и в древние времена Олимпийские игры проводятся каждые 4 года, еще в 1926 году появилась традиция проводить зимние олимпийские игры. Главная идея Олимпийских игр это сплотить людей путем соревнования на футбольных полях, кортах и стадионах.



Для написания программы на вычисление произведения положительных элементов массива целых чисел X[20], вы можете использовать любой язык программирования, который знаете. Вот пример программы на языке Python:
pythondef calculate_positive_product(arr):
product = 1
for num in arr:
if num > 0:
product *= num
return product
# Пример массива X
X = [5, 2, -3, 4, -1, 6, 0, 8, -2, 3, -7, 2, 1, 9, -5, 3, 2, 7, 1, -4]
# Вычисление произведения положительных элементов
result = calculate_positive_product(X)
print("Произведение положительных элементов массива:", result)
В этом примере функция calculate_positive_product()
принимает массив arr
и возвращает произведение положительных элементов этого массива. Затем мы создаем массив X
с числами и вызываем функцию calculate_positive_product(X)
, чтобы вычислить произведение положительных элементов массива. Результат выводится на экран.
Если вам нужно будет использовать другой язык программирования, концепция будет аналогичной: переберите элементы массива и умножайте положительные числа между собой.


Похожие вопросы
Топ вопросов за вчера в категории Информатика







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