Question

Отсортировать (по неубыванию) методом прямого выбора массив веществен ных чисел A[n], n > 100​(паскаль)

Answer 1

Ответ:

т.к. не было указано какой конкретно паскаль используется, пусть будет

Free Pascal 1.0.12

var

 a:array of double;

 n, i, j, k: integer;

 mi: double;

begin

 readln(n);

 SetLength(a,n);

 randomize;

 for i:=0 to n-1 do begin

   a[i]:= random(1000);

   write(a[i]:0:0, ' ');

 end;  

 writeln();

 

 for i:=0 to n-1 do begin

   mi:=a[i];

   for j:=i+1 to n-1 do

     if mi>a[j] then begin

       mi:=a[j];

       k:=j;

     end;  

   if mi<a[i] then  begin

     a[k]:= a[i];

     a[i]:=mi;

   end;

   write(a[i]:0:0, ' ');

 end;

end.