Question

Сформулируйте массив из 10 целых чисел из промежутка [1;15] и вычислите произведение элементов массива с нечетными номерами

Answer 1

Var a: array [1..15] of integer;
    i, m: integer;
begin
     m := 1;     for i := 1 to 10 do     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 1) then m := m * a[i];
     end;
     writeln(m);
end.

Уже делал)

Answer 2

Program 123;
var a:array[1..10] of integer;
i,p: integer;
begin
a[i]:=random(15);
p:=1;
for i:=1 to 10 do
                        if (i mod 2<>0) then (p:=(a[i]*p));
end.

Answer 3

Формирование массива и вычисление произведения элементов с нечетными номерами

Для формирования массива из 10 целых чисел из промежутка [1;15] и вычисления произведения элементов массива с нечетными номерами, выполним следующие шаги:

1. Формирование массива: - Создадим массив из 10 целых чисел, выбранных из промежутка [1;15].

2. Вычисление произведения элементов с нечетными номерами: - Произведение элементов массива с нечетными номерами будет равно произведению элементов с индексами 1, 3, 5, 7, и 9.

Давайте выполним эти шаги.

# Формирование массива из 10 целых чисел из промежутка [1;15]
array = [3, 7, 5, 11, 2, 8, 9, 4, 6, 13]

# Вычисление произведения элементов с нечетными номерами
product_odd_indices = 1
for i in range(0, len(array), 2):
    product_odd_indices *= array[i]

product_odd_indices  # Результат: 3 * 5 * 2 * 9 * 6 = 540

Таким образом, произведение элементов массива с нечетными номерами равно 540.