Найти максимальный из элементов, имеющих четный индекс. Пример: массив 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