Question

Напишите, пожалуйста, программу на Паскале нахождения произведения элементов, стоящих на нечетных местах с помощью массива
^-^

Answer 1

Відповідь:

program OddProduct;

const

N = 10; // размер массива

var

A: array[1..N] of integer;

i: integer;

Product: integer;

begin

// заполнение массива случайными числами

for i := 1 to N do

A[i] := Random(10);

// вывод исходного массива

writeln('Исходный массив:');

for i := 1 to N do

write(A[i], ' ');

writeln;

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

Product := 1;

for i := 1 to N do

if odd(i) then

Product := Product * A[i];

// вывод результата

writeln('Произведение элементов на нечетных местах: ', Product);

readln;

end.

Пояснення: