Question

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

Answer 1

// 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

Answer 2

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

Answer 3

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