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

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);   Writeln end. Исходные элементы массива  -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