Дан массив, содержащий 40 целых чисел от -50 до +50. Опишите на одном из языков
программирования алгоритм, позволяющий найти и вывести наименьшее положительное
нечетное число, содержащееся в массиве. Гарантируется, что в массиве есть хотя бы одно
положительное нечетное число.

Const

N = 40;

var

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

c,i:integer;

begin

randomize;

For c:=1 to N do

begin

a[c]:=random(-50,50);

Write(a[c],' ');

end;

writeln;

i:=50;

for c:=1 to N do

Begin

if a[c]< i then

if a[c]> 0 then

if a[c]mod 2<>0  then

 i:= a[c];

 end;

 write(i);

end.

Объяснение:

сам проверишь, но у меня сработало на ABC.NET