Question

Задать массив из 10 чисел с клавиатуры ,подсчитать произведение положительных элементов массива. ПОМОГИТЕ,УМОЛЯЮ!!!

Answer 1

Uses Crt;
Const
   N = 10;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
ClrScr;
P:=1;
Write('Введите массив A(',N,'): ');
For i:= 1 to N do
    Begin
    Read(A[i]);
    if A[i] > 0 then P:=P*A[i];
    End;
Write('P = ',P);
ReadLn;
End.

Answer 2

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

# Создаем пустой массив для хранения введенных чисел
numbers = []

# Заполняем массив 10 числами, вводимыми с клавиатуры
for i in range(10):
    number = float(input(f"Введите число {i + 1}: "))
    numbers.append(number)

# Инициализируем переменную для хранения произведения положительных чисел
product_of_positives = 1

# Подсчитываем произведение положительных элементов массива
for num in numbers:
    if num > 0:
        product_of_positives *= num

# Выводим результат
print(f"Произведение положительных элементов массива: {product_of_positives}")

Этот код создает массив из 10 чисел, которые вы вводите с клавиатуры, затем подсчитывает произведение только положительных чисел в этом массиве. Если нужна помощь с другим языком программирования или у вас есть какие-то конкретные вопросы, пожалуйста, дайте знать!