program sample;

var 
num, i:integer;
max, min, sum:integer;
mas_one : array [1..20] of integer;
mas_two : array [1..20] of integer;

begin
//Заполняем и выводим элементы массивов
  i := 1;
  writeln('Массив one: ');
  while i <= high(mas_one) do
  begin
    write(i, ' ');
    mas_one[i] := i;
    mas_two[i] := i+19;
    i := i + 1;
  end;
  writeln;
  i := 1;
  writeln('Массив two: ');
  while i <= high(mas_two) do
  begin
    write(mas_two[i], ' '); 
    i := i + 1;
  end;
  writeln();

  
  max := 1;
  min := 1;
  i := 1;
  //Ищем максимальный элемент первого массива
  while i <= high(mas_one) do
  begin 
    if mas_one[min] > mas_one[i] then
    begin
    
      min := i;
    end;
    i := i + 1;
  end;
  //////////////////////////////////////////////
  //Ищем минимальный элемент второго массива
  i := 1;
  while i <= high(mas_two) do
  begin 
    if mas_two[max] < mas_two[i] then
    begin
      max := i;
    end;
    i := i + 1;
  end;
  //////////////////////////////////////////////
  //выводим хначения минимального и максимального элементов
  writeln('|||||||||||||||||||||||||||||||||||||||||||||||||||');
  writeln('min = ', mas_one[min], ' max = ', mas_two[max]);
  writeln('|||||||||||||||||||||||||||||||||||||||||||||||||||');
  //////////////////////////////////////////////
  //Складываем min и max
  sum := mas_one[min] + mas_two[max];
  //////////////////////////////////////////////
  //Заменяем в первом массиве
  i := 1;
  while i <= high(mas_one) do
  begin
    if i mod 2 = 0 then
    begin
        mas_one[i] := sum;
    end;
    i := i + 1;
  end;
  i := 1;
  while i <= high(mas_two) do
  begin
    if i mod 2 = 1 then
    begin
        mas_two[i] := sum;
    end;
    i := i + 1;
  end;
  /////////////////////////////////////////////
  //Выводим значения элементов массивов
  i := 1;
   writeln('Массив one: ');
  while i <= high(mas_one) do
  begin
    write(mas_one[i], ' ');
    i := i + 1;
  end;
  writeln;
  i := 1;
  writeln('Массив two: ');
  while i <= high(mas_two) do
  begin
    write(mas_two[i], ' '); 
    i := i + 1;
  end;
  writeln;
  ////////////////////////////////////////////
read(i);
end.