Задан одномерный числовой массив размерностью 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.