Пример решения на языке Pascal:

program ArrayOperations;
const
n = 30;
var
arr: array[1..n] of integer;
i, minElement, oddCount, temp: integer;
begin
minElement := 9999;
oddCount := 0;
// Заполнение массива случайными числами
randomize;
for i := 1 to n do
begin
arr[i] := random(100); // Заполняем случайными числами от 0 до 99
if arr[i] < minElement then
minElement := arr[i];
if arr[i] mod 2 = 1 then
oddCount := oddCount + 1;
end;
// Вывод минимального элемента и количества нечетных чисел
writeln('Минимальный элемент массива: ', minElement);
writeln('Количество нечетных чисел в массиве: ', oddCount);
// Сортировка массива в порядке убывания
for i := 1 to n-1 do
begin
for j := i+1 to n do
begin
if arr[i] < arr[j] then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
end;
end;
// Вывод отсортированного массива
writeln('Массив в порядке убывания:');
for i := 1 to n do
begin
write(arr[i], ' ');
end;
end.

Этот код поможет найти минимальный элемент массива, определить количество нечетных чисел в массиве и расположить элементы массива в порядке убывания.