Дана последовательность целых чисел A1, A2, ..., An. Составьте программу, которая выводит разность произведения элементов с нечётным индексом и суммы элементов с чётным индексом.

program zz1;

const n = 7; / / задаем количество элементов в массиве

R:array [1 ... n] of integer = (4, - 1, 5, 6, - 7, 9, - 6); / / задаем последовательность чисел

var i, k, m:integer; / / задаем переменные целого типа

begin

k:=1; m:=0; / / задаем начальное значение для произведения и суммы

for i:=1 to n do / / организуем цикл, в котором переберем все элементы массива

begin

if i mod 2 = 1 then k:=k * R[i]; / / проверяем, если индекс нечетный, то умножаем элемент на произведение

if i mod 2 = 0 then m:=m + R[i]; / / проверяем, если индекс четный, то добавляем элемент в сумму

end;

write (' разность произведения и суммы = ', k - m); / / выводим ответ

end.