Найти максимальный из элементов, имеющих четный индекс. пример: массив 7 2 6 5 4 4 10 3 9 элементы с четными индексами 2 5 4 3 максимальный из них 5. паскаль авс.

Const
  n = 15;

var
  x: array[1..n] of integer;
  i, max: integer;

begin
  Randomize;
  Write('Элементы массива: ');
  for i := 1 to n do
  begin
    x[i] := Random(20);
    Write(x[i]:3)
  end;
  max := x[2]; i := 4;
  while i <= n do
  begin
    if max < x[i] then max := x[i];
    i := i + 2
  end;
  Writeln;
  Writeln('Max=', max)
end.

Тестовое решение:

Элементы массива:  17 12 18 12 11 14 18 19 16 16  9 13  7  3 13
Max=19