составьте программу, которая формирует массив из 15 случайных целых чисел, принадлежащих промежутку [-22, 33], заменяет положительные числа на 1 и выводит значение элементов массива до и после замены

Но это просто решается - достаточно программу запустить и убедиться в ее работе.

Есть и еще один вариант: вы изучаете не эту версию паскаля, а иную.

Тогда вина Ваша - надо было указать в вопросе название диалекта языка (ТурбоПаскаль, Free Pascal, Delphi, Lazarus и т.п.)

И наконец, есть еще один случай, когда задание дается с условием использовать только такие-то и такие конструкции языка. Правда я это считаю идиотизмом: составляя программу надо учиться выбирать наиболее эффективные механизмы.

Кстати, за отметки без причины нарушением работающих программ могут и наказать.

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(15, -22, 33);

 a.Println;

 a.Transform(t -> t > 0 ? 1 : t);

 a.Println

end.

Пример-16 7 14 8 18 7 -5 -3 -18 26 -3 -8 31 13 -1-16 1 1 1 1 1 -5 -3 -18 1 -3 -8 1 1 -1

const n=15;

var i:integer;

a:array[1..n] of integer;

begin

for i:=1 to n do

begin

a[i]:=random(56)-22;

write(a[i]:3,' ')

end;

writeln;

for i:=1 to n do

begin

if a[i]>0 then a[i]:=1;

write(a[i]:3,' ')

end

end.