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

Program min_mas;var {объявляем переменные которые будем использовать в программе}i,min,max:integer;a:array[1..50] of integer;beginrandomize; {используя генератор случайных чисел заполняем и выводим на экран массив}for i:=1 to 50 dobegina[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]<min) then min:=a[i];end;writeln;writeln (\'Min=\',min);readln; end.