Программа 1:

program CountNegativeElements;
var
arr: array[1..5] of integer;
i, countNeg: integer;
begin
countNeg := 0;
writeln('Введите 5 целых чисел:');
for i := 1 to 5 do
begin
readln(arr[i]);
if arr[i] < 0 then
countNeg := countNeg + 1;
end;
writeln('Количество отрицательных элементов в массиве: ', countNeg);
end.

Программа 2:

program CountPositiveElementsLessThanFive;
var
arr: array[1..5] of integer;
i, countPosLessThanFive: integer;
begin
countPosLessThanFive := 0;
writeln('Введите 5 целых чисел:');
for i := 1 to 5 do
begin
readln(arr[i]);
if (arr[i] > 0) and (arr[i] < 5) then
countPosLessThanFive := countPosLessThanFive + 1;
end;
writeln('Количество положительных элементов в массиве, значение которых меньше 5: ', countPosLessThanFive);
end.