program RandomArray;

var
arr: array[1..10] of integer;
i: integer;

begin
Randomize;

// заполнение массива случайными числами от -20 до 20
for i := 1 to 10 do
begin
arr[i] := Random(41) - 20;
end;

// вывод массива на экран
writeln('Исходный массив:');
for i := 1 to 10 do
begin
write(arr[i], ' ');
end;

// замена отрицательных чисел на 5
for i := 1 to 10 do
begin
if arr[i] < 0 then
begin
arr[i] := 5;
end;
end;

// вывод измененного массива на экран
writeln;
writeln('Массив после замены отрицательных чисел на 5:');
for i := 1 to 10 do
begin
write(arr[i], ' ');
end;

end.