Задан одномерный числовой массив размерностью n элементов. Найти наименьший нечетный элемент.

Const n = 20;

var a: array[1 ... n] of integer;

i, k, minel: integer;

begin

//заполнение массива

//и вывод массива на экран

randomize;

writeln ('элементы массива:') ;

for i:=1 to n do

begin

a[i]:=random (50) - 30;

write (a[i],' ') ;

end;

writeln;

//обработка массива и вывод на экран

minel:=a[1];

for i:=2 to n do

if (a[i] 0) then

begin

minel:=a[i];

k:=i;

end;

writeln ('номер элемента: ', k,' значение: ', minel) ;

end.