program FillArray;
var
arr: array[1..10] of integer;
i: integer;
begin
Randomize;

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

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

// Вывод массива
for i := 1 to 10 do
begin
Write(arr[i], ' ');
end;
end.