составить программу, которая наполняет массив а [1..10] случайными целыми числами в

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] gt; max) then

      max:= a[i];

  end;

  writeln;

  writeln('Максимальный элемент массива посреди частей с четными индексами: ', max);

end.

Если что не понятно - спрашивай.