program Arrays;

var
size, i, lastNegIndex: integer;
arr: array of integer;

begin
write('Enter the size of the array: ');
readln(size);

SetLength(arr, size);

// Fill the array with random positive and negative integers
Randomize;
for i := 0 to size-1 do
begin
arr[i] := Random(21) - 10; // Random number from -10 to 10
write(arr[i], ' ');
end;

// Find the position of the last negative element
lastNegIndex := -1;
for i := size-1 downto 0 do
begin
if arr[i] < 0 then
begin
lastNegIndex := i;
break;
end;
end;

writeln;
writeln('Position of the last negative element: ', lastNegIndex);

// Replace odd elements that are multiples of 4 with 1
for i := 0 to size-1 do
begin
if (arr[i] mod 2 <> 0) and (arr[i] mod 4 = 0) then
arr[i] := 1;
write(arr[i], ' ');
end;

end.