PASCAL Задан вещественный массив размера N. Перед каждым положительным элементом массива вставить нулевой элемент. Можете написать как будет выглядеть код для этой программы?

Предыдущий
вопрос Следующий
вопрос

Да, конечно! Вот пример кода на 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.

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