Организация циклов и работа с одномерными массивами

ЦЕЛЬ РАБОТЫ.

§ задав одномерный массив целочисленных данных А в одном из заданных форматов (BYTE, WORD, SHORTINT, INTEGER или LONGINT), реализовать обработку массива, как указано в варианте.

§ длина массива N<=20.

§ исходные данные задать самостоятельно, учитывая формат элементов массива A.

В программе должны быть предусмотрены процедуры ввода-вывода элементов массива А и его обработки. Исходные данные должны вводиться с проверкой на область допустимых значений. Тип результата определяется из контекста задачи (например, для варианта 14 целесообразно результат сделать типа REAL, SINGLE, DOUBLE или EXTENDED).

ВАРИАНТЫ

BYTE; 2 - WORD; 3 - SHORTINT; 4 - INTEGER; 5 - LONGINT.

Найти, сколько элементов массива A={a[i]} удовлетворяют условию:

с <= a[i] <= d.

BYTE; 7 - WORD; 8 - SHORTINT; 9 - INTEGER.

Найти произведение элементов массива A={a[i]}, удовлетворяющих условию:

с <= a[i] <= d.

LONGINT; 11 - SHORTINT; 12 - INTEGER.

Найти, сколько отрицательных элементов массива A={a[i]} удовлетворяют условию:

с <= a[i] <= d.

SHORTINT; 14 - INTEGER.

Найти сумму кубов всех отрицательных элементов массива A={a[i]}.

LONGINT; 16 - SHORTINT; 17 - INTEGER.

Найти, сколько положительных элементов массива A={a[i]} удовлетворяют условию:

с <= a[i] <= d.

SHORTINT; 19 - INTEGER.

Найти сумму квадратов всех положительных элементов массива A={a[i]}.

BYTE; 21 - WORD.

Найти произведение квадратов элементов массива A={a[i]}, удовлетворяющих условию: a[i] >= c.

SHORTINT; 23 - INTEGER; 24 - LONGINT.

Найти, сколько положительных, отрицательных и нулевых элементов в массиве A={a[i]}.

SHORTINT; 26 - INTEGER.

Найти произведение квадратов элементов массива A={a[i]}, удовлетворяющих условию: a[i] >= c.

SHORTINT; 28 - INTEGER.

Найти произведение последних L отрицательных элементов в массиве A={a[i]}.