Question

Найти произведение положительных чисел значение которых не превышают 5 из 10 введённых Срочно надо!!!

Answer 1

Program n1;
var a,p,i: integer;
begin
p:=1;
for i:=1 to 10 do
begin
readln(a);
if (a>0) and (a<=5) then p:=p*a;
end;
writeln(p);
end.

Answer 2

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

1. Введите 10 чисел.
2. Выберите только те числа, которые меньше или равны 5.
3. Умножьте все выбранные числа.

Пример: Пусть введенные числа следующие: 2, 4, 6, 1, 3, 5, 7, 2, 3, 4. Из них числа, которые меньше или равны 5: 2, 4, 1, 3, 5, 2, 3, 4. Произведение этих чисел: 2 * 4 * 1 * 3 * 5 * 2 * 3 * 4 = 576.

Таким образом, произведение положительных чисел, значение которых не превышает 5, из введенных 10 чисел равно 576.

Пожалуйста, не забудьте внимательно проверить результаты, так как я могу ошибиться в расчетах.