Question

50 БАЛЛОВ!!!!!!!!! Переделать чтобы упоряд. по возврастанию нач. с выставки минимального элемента на 1-ое число. for i:=1 to n do begin a[i]:=random writeln(a[i],' ');end; for j:=n-1 down to 1 do do for i:=1 to j do if a[i]>a[i+1], then begin x:=a[i]; a[i]:=a[i+1]; a[i+1];=x; end; writeln; for i:=1 to do begin; writeln(a[i]); end.

Answer 1

For i:=1 to n do
begin
a[i]:=random (20);
write(a[i],' ')
end;
for j:=n-1 downto 1 do
for i:=1 to j do
if a[i]>a[i+1] then
begin
x:=a[i];
a[i]:=a[i+1];
a[i+1]:=x
end;
writeln;
for i:=1 to  n do write(a[i],' ')

В программе:
var
i,j,n,x:integer;
a:array [1..100] of integer;
begin
readln (n);
for i:=1 to n do
begin
a[i]:=random (20);
write(a[i],' ')
end;
for j:=n-1 downto 1 do
for i:=1 to j do
if a[i]>a[i+1] then
begin
x:=a[i];
a[i]:=a[i+1];
a[i+1]:=x
end;
writeln;
for i:=1 to n do write(a[i],' ')
end.

Пример:
10
3 0 19 18 5 1 4 7 16 8
0 1 3 4 5 7 8 16 18 19 

Answer 2

Для упорядочивания элементов массива a по возрастанию и перемещения минимального элемента на первую позицию вам необходимо немного изменить существующий код. Вот переработанный код на языке Pascal:

pascalCopy code
const
  n = 10; // Задайте нужное значение n

var
  a: array[1..n] of integer;
  i, j, x, minIdx: integer;

begin
  // Заполнение массива случайными значениями
  for i := 1 to n do 
  begin 
    a[i] := random(100); // Задайте нужный диапазон случайных значений
    writeln(a[i],' ');
  end;

  // Упорядочивание элементов по возрастанию сортировкой пузырьком
  for j := n - 1 downto 1 do
    for i := 1 to j do 
      if a[i] > a[i+1] then 
      begin
        x := a[i];
        a[i] := a[i+1];
        a[i+1] := x;
      end;

  // Нахождение индекса минимального элемента в массиве
  minIdx := 1;
  for i := 2 to n do 
    if a[i] < a[minIdx] then 
      minIdx := i;

  // Перемещение минимального элемента на первую позицию
  if minIdx <> 1 then
  begin
    x := a[minIdx];
    for i := minIdx downto 2 do
      a[i] := a[i-1];
    a[1] := x;
  end;

  // Вывод упорядоченного массива
  writeln;
  for i := 1 to n do
    writeln(a[i]);
end.

Обратите внимание, что я добавил переменную minIdx, чтобы найти индекс минимального элемента в массиве, и переместил его на первую позицию. Затем элементы массива упорядочиваются по возрастанию с помощью сортировки пузырьком. В результате минимальный элемент будет находиться на первой позиции, а все остальные элементы будут упорядочены по возрастанию.