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.

Answer 3

Если бы не знал причину, обвинил бы в плагиате))))

Answer 4

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

Answer 5

Именно так. Но в данном случае единообразие "есть гуд", поскольку упрощает понимание кода, написанного другими. Задачки становятся воспринимаемыми с одного взгляда.

Answer 6

По этой же причини становятся восхитительно лишними блок-схемы: зачем объяснять то, что и так видно?