Verified answer

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 min, i, j, temp: integer;

begin

 min := MAXINT;

 for i := 1 to 10 do arr[i] := random(-10, 10);

 writeln('Исходный массив: ', arr);

 for i := 1 to 9 do

   for j := i + 1 to 10 do

     if arr[i] > arr[j] then begin

       temp := arr[i];

       arr[i] := arr[j];

       arr[j] := temp

     end;

 for i := 1 to 10 do if min > arr[i] then min := arr[i];

 writeln('Отсортированый массив: ', arr);

 writeln('Минимальное значение массива: ', min);

end.