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

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

Тема: Одномерные числовые массивы. Указание: Заполните одномерный числовой массив D(12) случайными целыми числами в интервале [-10; 15]. Выведите значения элементов массива сначала в столбик, а затем в строку, причем на каждый элемент отведите 4 позиции. Ответ каждой задачи следует выводить с новой строки и с пояснительным текстом. Кроме того, следует каждый раз производить вывод массива на экран, если в нём произошли изменения: перестановка, замена, изменение значения элементов и т.д. Задача 1. Найдите произведение элементов массива с чётными номерами. Задача 2. Найдите количество ненулевых элементов массива. Задача 3. Найдите среднее арифметическое элементов массива.

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

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

program ex;
type vector=array[1..12]of integer;
var a:vector;
    i,p,k,s:integer;
    sred:real;
    
begin
writeln('массив(в столбец): ');
p:=1;k:=0;s:=0;
for i:=1 to 12 do
begin
a[i]:=Random(26)-10;
writeln(a[i]:4);
s:=s+a[i];
if (i mod 2 = 0)then p:=p*a[i];
if (a[i]<>0) then k:=k+1;
end;
 
writeln();
write('массив(в строку): ');
for i:=1 to 12 do
write(a[i]:4);
sred:=s/12;
writeln();
writeln('произведение элементов массива с четными номерами: ',p);
writeln('количество ненулевых элементов массива: ',k);
writeln('среднее арифметическое элементво массива: ',sred);
end.

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

В данном коде объявлен тип данных vector, который представляет собой массив из 12 элементов типа integer. Далее, объявлены переменные a, i, p, k и s, которые будут использоваться для работы с массивом. Затем, происходит вывод сообщения массив(в столбец):, после чего начинается цикл, который проходит по всем элементам массива от 1 до 12. Внутри цикла каждому элементу присваивается случайное значение от 1 до 26 (с помощью функции Random), после чего выводится значение элемента. Также, внутри цикла вычисляется сумма элементов массива и производится проверка на четность индекса элемента с помощью оператора mod. Если индекс четный, то значение элемента умножается на p. Если элемент не равен нулю, то увеличивается счетчик k. После завершения цикла, выводится сообщение массив(в строку):, после чего происходит вывод значений всех элементов массива. Затем, вычисляется среднее арифметическое значение элементов массива и выводится сообщение произведение элементов массива с четными номерами:, значение k и среднее арифметическое значение. Таким образом, данный код выполняет задачу нахождения произведения элементов массива с четными номерами.