Pascal создать программу с четырьмя подпрограммами

[Rlayh]

Заполните однородный числовой массив N(14) случайными целыми числами в интервале [-6;16] Выведите значения элементов массива сначала в столбик,а затем в строку, причем на каждый элемент отведите 4 позиции. Ответ каждой задачи следует выводить с новой строки и с пояснительным текстом. Кроме того, следует каждый раз производить вывод массива на экран,если в нем произошло изменение значения элементов.

а)Найдите количество элементов, стоящих на четных местах.
б)найдите сумму элементов имеющие отрицательные значения.
в)Найдите произведение положительных элементов массива,стоящих на местах,номера которые кратны трем.
г)Обнулите элементы массива,которые лежали в интервале от -3 до 12

[VIK_aka_TOR]

предположим что массив называется mas ... тогда
заполнение рандомно в диапазоне [-6;16]

randomize;
for i:=1 to 14 do
 mas[i] := random(23) - 6;

количество элементов стоящих на четных местах ... хм... 14 / 2 = 7 )))) глупо но вот...

index := 0; // счетчик четных мест
for i:=1 to 14 do
if (not ord(i)) then
inc(index);
writeln(index);

сумма элементов с отриц значениями

sum := 0;
for i:=1 to 14 do
if mas[i] < 0 then
 sum := sum + mas[i];
writeln(sum); // можете влепить еще проверку есть ли вовсе отрицательные значения...  мол если сумма равна 0 - значит нету отрицательных

Найдите произведение положительных элементов массива,стоящих на местах,номера которые кратны трем.

proizv := 1;
for i:=1 to 14 do
if (i mod 3 = 0) then
proizv := proizv * mas[i];
writeln(proizv); // при желании тоже можно проверку сделать...
// вывод массива

Обнулите элементы массива,которые лежали в интервале от -3 до 12

for i:=1 to 14 do
if ((mas[i] >= -3) and ( mas[i] <= 12)) then
mas[i] := 0;
// вывод массива