[siazepp]

Добрый вечер всем.

Нуждаюсь в Вашей помощи с заданием. Ниже Вы можете видеть задание и условие:

Условие

1) Данная работа выполняется с использованием интегрированной среды разработки приложений Delphi 7.

2) Задание нужно выполнить в виде консольного (DOS) приложения.

Разработать программу и тестовый пример для проверки работы программы. В работе использовать статические массивы, задавая их размер 100. Значение n<100 (количество элементов массива) и сами элементы массива вводить с клавиатуры. Тип элементов массива – real, если в задании не указано, что массив целочисленный. Введенный массив необходимо вывести на экран в строку, используя соответствующий формат вывода. Если в результате выполнения задания изменился исходный массив, то результирующий массив тоже нужно вывести на экран. В качестве отчета отсылается папка с соответствующим проектом, тестовый пример приводить не нужно.

Задание

В заданном целочисленном массиве a1, a2, …, an подсчитать сумму и
произведение четных, положительных элементов. Если в массиве отсутствуют подобные элементы, то вывести на экран соответствующее сообщение.