Что будет написано в конце алгоритма

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.

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

var 

  a: array [1..10] of integer;

  i, min, minindex: integer;   {min - значение минимального элемента массива, minindex - индекс минимального элемента массива}

 

begin

  min: = 20;

  write('исходный массив:   ');

  for i: = 1 to 10 do

  begin

    a[i]: = random(19) + 1;

    write(a[i], '   ');

    if a[i] < min then 

    begin

      min: = a[i];  

      minindex: = i;

    end;

  end;

  writeln;

  write('минимальный элемент массива:   a[', minindex, '] = ', min);

  writeln;

end.