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

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

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

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

Пример
22 25 8 13 14 8 22 7 9 21 7 6 7 15 17 20 16
Min=7
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программка не работает, обновите версию!

begin
var a:= ArrRandom(17,5,25);
a.Println;
Writeln(a.Where(t -gt; t.isOdd).Min);
end.
Александр Гажаев
Увидел, что на PABC.Net код единообразен у большинства людей, т.к. много интегрированных функций, и хватает стандартных имен(на школьных задачках уж точно)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт