В массиве из 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.