Составить программу , которая в одномерном массиве размерностью 14 ( элементами являются случайные числа от 10 до 99) находит наименьший элемент оканчивающихся на 1.

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

begin
  var a:=ArrRandom(14,10,99); a.Println;
  var s:=a.Where(x->x mod 10=1);
  if s.Count=0 then Writeln('Нет элементов, оканчивающихся на 1')
  else Writeln('Наименьший элемент, оканчивающийся на 1: ',s.Min)
end.

Пример
34 32 61 31 56 42 23 89 10 25 59 15 60 73
Наименьший элемент, оканчивающийся на 1: 31