program MinOddElement;
const
n = 10;
type
TArray = array[1..n] of integer;
var
A, B: TArray;
i, minElement: integer;
procedure FillArray(var arr: TArray);
var
i: integer;
begin
for i := 1 to n do
arr[i] := Random(77) - 31;
end;
function FindMinElement(arr: TArray): integer;
var
i, min: integer;
begin
min := MaxInt;
for i := 1 to n do
begin
if (arr[i] mod 2 <> 0) and (arr[i] < min) then
min := arr[i];
end;
FindMinElement := min;
end;
begin
Randomize;
FillArray(A);
minElement := FindMinElement(A);
writeln('Array A:');
for i := 1 to n do
write(A[i], ' ');
writeln;
writeln('Array B (odd elements from array A):');
for i := 1 to n do
begin
if A[i] mod 2 <> 0 then
write(A[i], ' ');
end;
writeln;
writeln('The smallest odd element in array B:', minElement);
end.

Программа создает два массива A и B, заполняет массив A случайными числами на интервале [-31,45], затем B заполняется нечетными элементами из массива A. Далее находится наименьший элемент в массиве B и выводятся оба массива, а также найденный наименьший элемент.