Сформировать одномерный массив Y из 30 элементов в интервале [0; 100], вывести его на экран в одну строку через пробел. Найти и вывести минимальный нечетный элемент На языке Pascal

Для решения задачи на Pascal нужно выполнить следующие шаги:
1. Объявить переменную массива Y типа array[1..30] of integer.
2. Заполнить массив Y случайными числами от 0 до 100 с помощью функции random(101).
3. Вывести массив Y на экран в одну строку с помощью цикла for и команды write.
4. Объявить переменную minOdd и присвоить ей значение 101, которое гарантированно больше любого числа в массиве Y.
5. Пройти по всем элементам массива Y с помощью цикла for и проверить, является ли текущий элемент нечетным.
6. Если текущий элемент нечетный и он меньше значения переменной minOdd, то обновить значение minOdd.
7. Вывести минимальный нечетный элемент minOdd на экран.

Вот пример кода на Pascal:

“`pascal
var
Y: array[1..30] of integer;
minOdd: integer;
i: integer;

begin
// Заполнение массива Y случайными числами от 0 до 100
randomize;
for i := 1 to 30 do
begin
Y[i] := random(101);
end;

// Вывод массива Y на экран
for i := 1 to 30 do
begin
write(Y[i], ‘ ‘);
end;

// Поиск минимального нечетного элемента
minOdd := 101;
for i := 1 to 30 do
begin
if (Y[i] mod 2 = 1) and (Y[i] < minOdd) then begin minOdd := Y[i]; end; end; // Вывод минимального нечетного элемента writeln; writeln('Минимальный нечетный элемент:', minOdd); end. ``` После запуска программы будет сгенерирован массив Y из 30 случайных чисел в диапазоне от 0 до 100. Этот массив будет выведен на экран в виде одной строки, разделенной пробелами. Затем программа найдет и выведет на экран минимальный нечетный элемент массива Y.