Найти произведение четных элементов массива - Pascal ABC (14093)

Формулировка задачи:

Прошу помочь мне сделать задачи. Братишке надо. Зависит судьба оценки в полугодии. 1. Найти произведение четных элементов массива. 2. Увеличить все элементы элементов массива с четными порядковыми номерами на 7. Вывести исходный и полученный массив на экран. 3. Заполнить массив случайными целыми числами из [-15;24] и найти минимальный элемент массива.

Решение задачи: «Найти произведение четных элементов массива»

Листинг программы

Uses crt;
Const n=10;
Var A : array [1..n] of integer;
    i, d, min : integer;
begin clrscr;
Randomize;
For i:=1 to n do A[i]:=random(10);
Writeln('Task 1');
Writeln('Array A:');
For i:=1 to n do Write(A[i]:4);
Writeln;
D:=1;
For i:=1 to n do
    begin
    If ((A[i] mod 2)=0) then D:=D*A[i];
    end;
Writeln('D=', D);
Writeln('Task 2');
Writeln('Array A:');
For i:=1 to n do Write(A[i]:4);
For i:=1 to n do
    begin
    if ((i mod 2)=0) then A[i]:=A[i]+7;
    end;
Writeln;
Writeln('New array A:');
For i:=1 to n do Write(A[i]:4);
Writeln('Task 3');
For i:=1 to n do A[i]:=random(25)-random(16);
Writeln('Array A:');
For i:=1 to n do Write(A[i]:4);
Writeln;
min:=A[1];
For i:=2 to n do
    begin
    If (A[i]<min) then min:=A[i];
    end;
Writeln('min=', min);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC.

Создается константа n, которая определяет количество элементов в массиве A.
Создается переменная A, которая представляет собой массив из n элементов типа integer.
Создаются три переменные: i, d и min. Переменная i используется для итерации по элементам массива A, переменная d используется для хранения произведения четных элементов, а переменная min используется для хранения минимального элемента массива A.
Выполняется итерация по элементам массива A. Если элемент четный (A[i] % 2 = 0), то значение переменной d увеличивается на произведение этого элемента и i.
После завершения итерации выводится значение переменной d.
Выполняется еще одна итерация по элементам массива A. Если элемент четный (i % 2 = 0), то значение элемента A[i] увеличивается на 7.
После завершения итерации выводится новый массив A.
Выполняется еще одна итерация по элементам массива A. Если элемент четный (A[i] % 2 = 0), то значение элемента A[i] увеличивается на random(25)-random(16).
После завершения итерации выводится новый массив A.
Вычисляется минимальный элемент массива A.
Выводится старый и новый значения переменной min. Таким образом, данный код выполняет следующие задачи:
- Находит произведение четных элементов массива A.
- Изменяет значения некоторых элементов массива A.
- Находит минимальный элемент массива A.