Question

Массив задан датчиком случайных чисел на интервале [-37, 66]. Найти наименьший нечетный элемент. Размер произвольный.

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-37,66); a.Println;
  Writeln('Минимальный нечетный: ',a.Where(m->m.IsOdd).Min)
end.

Пример
n= 15
-9 -25 -31 -27 11 -32 36 -6 44 -26 -22 11 48 43 29
Минимальный нечетный: -31