Создать одномерный массив из 16 элементов. вычислить максимальное значение из элементов, имеющих четные индексы.

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

begin
var a:= ArrRandom(16);a.Println;
Writeln(a.Where((v,i) -> (i+1).isEven).Max);
end.

Пример:
98 88 1 68 45 8 66 97 67 23 94 49 22 83 16 93
97