Составьте программу, выполняющую поиск минимального нечетного элемента в заданном целочисленном массиве из 50 элементов. Известно, что в массиве есть хотя бы один нечетный элемент.

Program min_mas;

var {объявляем переменные которые будем использовать в программе}

i, min, max:integer;

a:array[1 ... 50] of integer;

begin

randomize; {используя генератор случайных чисел заполняем и выводим на экран массив}

for i:=1 to 50 do

begin

a[i]:=random (100);

write (a[i],' ');

end;

min:=a[1]; {Присваиваем минимальному значению значение первого элемента массива }

for i:=1 to 50 do

begin {проверяем каждый элемент массива является ли он нечетным и сравниваем его с первым элементом}

if (a[i] mod 2 0) and (a[i]
end;

writeln;

writeln ('Min=', min);

readln;

end.