Да, конечно! Вот пример кода на Pascal для выполнения данной задачи:

program InsertZerosBeforePositiveElements;
const
N = 10; // размер массива
var
arr: array[1..N] of real;
i, j: integer;
begin
// заполнение массива случайными вещественными числами
for i := 1 to N do
begin
arr[i] := random * 10 - 5; // генерация чисел от -5 до 5
writeln(arr[i]:0:2);
end;
// вставка нулей перед положительными элементами
for i := 1 to N do
begin
if arr[i] > 0 then
begin
for j := N downto i + 1 do
arr[j] := arr[j - 1];
arr[i] := 0;
N := N + 1; // увеличиваем размер массива
end;
end;
// вывод массива с добавленными нулями
writeln('Массив после вставки нулей перед положительными элементами:');
for i := 1 to N do
writeln(arr[i]:0:2);
end.

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