Решите методом через массив и через последовательность, пожалуйста)

Question

Решите методом через массив и через последовательность, пожалуйста)

---

Answer 1

// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

// Внимание! Если программа не работает, обновите версию!

С массивом

begin

 var a := ReadArrInteger(ReadlnInteger);

 var (i, v) := a.Numerate.Where(t -> t[1].IsEven and (t[1] mod 10 = 8))

     .MinBy(t -> t[1]);

 i.Println

end.

С последовательностью

begin

 var (n, min, i, imin) := (ReadlnInteger, integer.MaxValue, 1, 1);

 var s := ReadSeqInteger(n);

 foreach var t in s do

 begin

   if (t < min) and t.IsEven and (t mod 10 = 8) then

     (min, imin) := (t, i);

   Inc(i)

 end;

 imin.Println

end.