4. Сформировать целочисленный массив их 15 произвольных чисел. Подсчитать сумму и произведение элементов с нечетными индексами.

Program arr;

var

a: array[1 ... 15] of integer;

count, count_odd, num, sum, mult: integer;

begin

count : = 1;

count_odd : = 1;

num : = 3;

sum : = 0;

mult : = 1;

while count < = 15 do

begin

a[count] : = num;

count : = count + 1;

num : = num + 3;

end;

while count_odd < = 15 do

begin

sum : = sum + a[count_odd];

mult : = mult * a[count_odd];

count_odd : = count_odd + 2;

end;

writeln ('Массив из 15 элементов: 3, 6, 9, ..., 45') ;

writeln ('Сумма элементов с нечетными индексами: ', sum) ;

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

end.