Question

Отсортируйте 15 РАНДОМНЫХ чисел: 1) По возрастанию;2) По убыванию. program rost; var n,i,j,x,imax:integer; a:array[1..10] of integer; begin for i:=1to 10do read(a[i]); for i:=1to 10 do write(a[i], ' ' ); for i:=1to 9do begin imin:=i; for j:=i+1 to 10 do if a[j]>a[imax] then imax:=j; x:=a[i]; a[i]:=a[imax]; a[imax]:=x end; for i:=1to 10do write (a[i], ' ' ); end.​

Answer 1

program sort_random_chislsa;

const n=15;

var i,j,x:integer;

a:array[1..n] of integer;

begin

for i:=1 to n do a[i]:=random(101)-50;

for i:=1 to n do write(a[i], ' ' );

writeln;

writeln('Вот и сортировка по возрастанию');

for i:=1 to n-1 do

for j:=i+1 to n do

if a[j]<a[i] then

begin

x:=a[i];

a[i]:=a[j];

a[j]:=x;

end;

for i:=1to n do write (a[i], ' ' );

writeln('Теперь сортируем это по убыванию');

for i:=1 to n do a[i]:=random(101)-50;

for i:=1 to n do write(a[i], ' ' );

writeln('Вот так');

for i:=1 to n-1 do

for j:=i+1 to n do

if a[j]>a[i] then

begin

x:=a[i];

a[i]:=a[j];

a[j]:=x;

end;

for i:=1to n do write (a[i], ' ' );

end.

Answer 2

К сожалению, предоставленный код содержит ошибки и не соответствует вашему запросу. Приведу правильный код на языке Pascal для сортировки 15 случайных чисел:

pascalCopy code
program sortNumbers;

const
  N = 15;

var
  i, j, temp: integer;
  arr: array[1..N] of integer;

begin
  // Заполнение массива случайными числами
  randomize;
  for i := 1 to N do
    arr[i] := random(100); // Генерация случайных чисел от 0 до 99

  // Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to N do
    write(arr[i], ' ');

  // Сортировка по возрастанию методом выбора (Selection Sort)
  for i := 1 to N - 1 do
  begin
    for j := i + 1 to N do
    begin
      if arr[j] < arr[i] then
      begin
        temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;
    end;
  end;

  // Вывод массива после сортировки по возрастанию
  writeln;
  writeln('Отсортированный массив по возрастанию:');
  for i := 1 to N do
    write(arr[i], ' ');

  // Сортировка по убыванию методом выбора (Selection Sort)
  for i := 1 to N - 1 do
  begin
    for j := i + 1 to N do
    begin
      if arr[j] > arr[i] then
      begin
        temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;
    end;
  end;

  // Вывод массива после сортировки по убыванию
  writeln;
  writeln('Отсортированный массив по убыванию:');
  for i := 1 to N do
    write(arr[i], ' ');

  readln;
end.

Этот код создает массив из 15 случайных чисел, сортирует его по возрастанию и затем по убыванию с помощью алгоритма сортировки выбором (Selection Sort). Результат будет выведен в консоль.