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

Question

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

Answer 1

//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.