Вмассиве из 20 целых чисел найти наименьший элемент и поменять местами первым элементом. с объяснениями!

//PascalABC.Net
const
  N = 20;

var
  a: array [1..N] of integer;
  k, min: integer;

begin
  k := 1;
  //Получим 1-ый элемент массива
  a[1] := Random(41) - 20;
  min := a[1];
  write(a[1]:4);
  //Получим оставшиеся элементы массива
  //найдем минимальный, запомним его номер
  //и выведем массив на экран
  for var i := 2 to N do
  begin
    a[i] := Random(41) - 20;
    if a[i] < min then begin
      min := a[i];
      k := i;
    end;
    write(a[i]:4);
  end;
  if k <> 1 then swap(a[1], a[k]);
  writeln;
  //Вывод массива после замены
  for var i := 1 to n do write(a[i]:4);
end.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var lvl:=0;
  var s:= '';
  var predE:=false;
  foreach var c in s do
    if c='E' then begin
      if predE then begin predE:=false; lvl+=1 end
      else predE:=true
      end
    else
      if c='B' then begin predE:=false; lvl+=1 end;
  Writeln(lvl,' level')
end.

Результат выполнения программы
63 level

И второй вариант, "как не учат в школе":

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var s:= '';
  Writeln(Regex.Matches(s,'E[EB]|B').Count,' Level')
end.

Результат выполнения аналогичный.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var lvl:=0;
  var s:= '';
  var predE:=false;
  foreach var c in s do
    if c='E' then begin
      if predE then begin predE:=false; lvl+=1 end
      else predE:=true
      end
    else
      if c='B' then begin predE:=false; lvl+=1 end;
  Writeln(lvl,' level')
end.

Результат выполнения программы
63 level

И второй вариант, "как не учат в школе":

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var s:= '';
  Writeln(Regex.Matches(s,'E[EB]|B').Count,' Level')
end.

Результат выполнения аналогичный.