Question

Дан целочисленный массив из 20 элементов. Элементы массива
могут принимать целые значения от 0 до 10000 включительно. Опишите на
естественном языке или на одном из языков программирования алгоритм,
позволяющий найти и вывести минимальное значение среди двузначных
четных элементов массива. Если в исходном массиве нет заданного элемента,
то вывести сообщение «Не найдено».

Answer 1

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var a:=ReadArrInteger(20);
  var b:=a.Where(x->x in [10..99]).Where(x->x.IsEven);
  if b.Count>0 then Writeln(b.Min)
  else Writeln('Не найдено');
end.

Тестовое решение:
7497 9647 3684 848 6349 37 1281 3739 465 7784 16 406 6936 621 4960 98 1894 3825 3369 6566
16