в одновимірному масиві знайти найменший елемент і поміняти його місцями з першим елементом масиву. 

const  n = 15;var  x: array[1..n] of integer;  i, k, t, min: integer;begin  Randomize;  Writeln('Исходные элементы массива');  min := 1000;  for i := 1 to n do  begin    x[i] := Random(101) - 50;    Write(x[i]:4);    if min > x[i] then begin      min := x[i];      k := i    end  end;  t := x[k]; x[k] := x[1]; x[1] := t;  Writeln;  Writeln('Результирующие элементы массива');  for i := 1 to n do Write(x[i]:4);  Writelnend.Исходные элементы массива -28 -22 -15   3  27  29  34 -29 -49 -37 -19  31  40 -36   4Результирующие элементы массива -49 -22 -15   3  27  29  34 -29 -28 -37 -19  31  40 -36   4