Var
  Z: array [1..10] of integer;
  i: byte;
  MaxOddId, MaxEvenId: integer;
begin
randomize;
writeln(' * * * Исходный массив * * *');
for i := 1 to 10 do
begin
  Z[i] := random(50)-20;
  MaxOddId := Z[1];
  MaxEvenId := Z[2];
  write(Z[i], ' ');
end;

for i := 1 to 10 do
begin
  if i mod 2 = 0 then if Z[i] > MaxEvenId then MaxEvenId := Z[i];
  if i mod 2 0 then if Z[i] > MaxOddId then MaxOddId := Z[i];
end;

writeln(#13+'Максимальный элемент на четных ячейках = ', MaxEvenId);
writeln('Максимальный элемент на нечетных ячейках = ', MaxOddId);

end.