В одномерном массиве их 17 случайных целых чисел из промежутка [5:25]найдите наименьший...

Question

В одномерном массиве их 17 случайных целых чисел из промежутка [5:25]найдите наименьший из нечётных элементов

Answer 1

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

begin
  var a:=ArrRandom(17,5,25); a.Println;
  Writeln('Min=',a.Where(t->t.IsOdd).Min)
end.

Пример
22 25 8 13 14 8 22 7 9 21 7 6 7 15 17 20 16
Min=7

Answer 2

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

begin
var a:= ArrRandom(17,5,25);
a.Println;
Writeln(a.Where(t -> t.isOdd).Min);
end.

Comments

Заметил, что на PABC.Net код единообразен у большинства людей, т.к. много встроенных функций, и хватает стандартных имен(на школьных задачах уж точно)