Nеmo Var  a: array [1..10] of integer; 
 i, max: integer; 
begin 
max:= 0; 
write('Исходный массив:  ');
for i:= 1 to 10 do 
begin 
a[i]:= random(10); 
write(a[i], '  '); 
if (i mod 2 = 0) and (a[i] > max) then 
max:= a[i]; 
end; 
writeln; 
 writeln('Максимальный элемент массива среди элементов с четными индексами: ', max);
end.