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

А можно на старый паскаль прогу?

В условии язык программирования вообще не указан, сейчас переписывать из-за некорректного условия?

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!beginvar 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 9397