Напишите программу, которая заполняет массив из 20 элементов и находит в нём минимальный из чётных элементов и его номер. предполагается, что в массиве есть чётные элементы.

begin

 var a := ArrRandom(20, -50, 50);

 a.Println;

 var min := a.Where(t -> t.IsEven).Min;

 var i := a.IndexOf(min);

 Writeln('a[', i + 1, '] = ', min)

end.

39 -37 21 13 26 1 37 -19 21 39 -34 -23 22 46 8 -6 -21 39 47 32

a[11] = -34