1. найти произведение элементов с нечетными номерами(паскаль,массивы) 2. найти сумму четных элементов массива(паскаль,массивы)

1.
Входные данные:
В первой строке вводится целое положительное число , не превышающее 100. Во второй строке ввести неотрицательных целых чисел , каждое из которых не превышает 255.

Выходные данные:
В единственной строке выходного файла вывести произведение всех элементов массива с нечётным номером.

Пример ввода:
3
1 2 3

Пример вывода:
3

Писал на: PascalABC.Net v.3.2, сборка 1325 (19.10.2016)

Исходный код решения находится в приложении №1.

2.
Входные данные:
В первой строке вводится целое положительное число , не превышающее 100. Во второй строке ввести неотрицательных целых чисел , каждое из которых не превышает 255.

Выходные данные:
В единственной строке выходного файла вывести сумму всех элементов массива с чётным номером.

Пример ввода:
3
1 2 3

Пример вывода:
2

Писал на: PascalABC.Net v.3.2, сборка 1325 (19.10.2016)

Исходный код решения находится в приложении №2.