
1.В одномерном массиве 30 целых чисел,найти произведение положительных элементов. 2.В одномерном
массиве 20 целых чисел,найти среднее арифметическое его наибольшего и наименьшего элементов.

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

Program z567;
Var a: array [1..30] of integer;
b: array [1..20] of integer;
i,max,p,min:integer; s:real;
Begin
for i:=1 to 30 do
a[i]:=random(10)-5;
for i:=1 to 20 do
b[i]:=random(10);
for i:=1 to 30 do
write(a[i],' ');
p:=1;
for i:=1 to 30 do
if (a[i] > 0) then p:=p*a[i];
writeln('');
writeln('1-ое задание: ', p);
for i:=1 to 20 do
write(b[i],' ');
max:=b[1];
for i:=2 to 19 do
if (b[i] > max) then max:=b[i];
min:=b[1];
for i:=2 to 19 do
if (b[i] < min) then min:=b[i];
s:=(min+max)/2;
writeln('');
writeln('2-ое задание: ', s);
End.



Для обоих заданий, нам потребуется написать программу на языке программирования. Я предположу, что вы хотите решить эти задачи на языке Python.
- Найти произведение положительных элементов в одномерном массиве:
pythondef find_positive_product(arr):
product = 1
for num in arr:
if num > 0:
product *= num
return product
# Пример использования:
array = [3, -5, 2, 0, 7, -1, 4, -6, 9, 8, -2, 10, 12, -3, 5, -4, 6, -7, 1, -8, 11, -9, 13, -10, 15, -11, 14, 16, -12, -13]
result = find_positive_product(array)
print("Произведение положительных элементов:", result)
- Найти среднее арифметическое наибольшего и наименьшего элементов в одномерном массиве:
pythondef find_average_of_min_max(arr):
if len(arr) == 0:
return None
min_num = max_num = arr[0]
for num in arr:
if num < min_num:
min_num = num
elif num > max_num:
max_num = num
average = (min_num + max_num) / 2
return average
# Пример использования:
array = [12, 8, 20, 6, 15, 10, 18, 5, 16, 2, 7, 11, 4, 14, 19, 3, 17, 9, 13, 1]
result = find_average_of_min_max(array)
print("Среднее арифметическое наибольшего и наименьшего элементов:", result)
Примечание: В обоих примерах я использовал условные данные для массивов. Вы можете заменить значения массивов на свои данные или сгенерировать массивы с помощью других методов или случайных чисел, если это необходимо.


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