Question

С помощью Паскаля задача: Отсортировать массив из 10 чисел случайным образом по возрастанию и по убыванию.

Answer 1

Const n=10;
Var a:array[1..n]of integer;
      i,max,p,k:integer;
Begin
writeln ('entered array');
for i:=1 to n do 
Begin
  a[i]:=random (9)+1; 
write (a[i],' '); 
end;
writeln;
for i:=1 to n-1 do 
Begin 
max:=a[i];
p:=i; 
for k:=i+1 to n do   
if a[k]>max then     
Begin     
max:=a[k];     
p:=k;     
end; 
a[p]:=a[i]; 
a[i]:=max; 
end;
writeln ('new array');
for i:=1 to n do 
Write (a[i],' ');
writeln;
end.

Answer 2

Отсортировать массив из 10 чисел случайным образом по возрастанию и по убыванию с помощью Паскаля

Для сортировки массива из 10 чисел случайным образом по возрастанию и по убыванию с помощью Паскаля, можно использовать алгоритм сортировки "пузырьком". Этот алгоритм сравнивает пары соседних элементов массива и меняет их местами, если они находятся в неправильном порядке. Процесс повторяется до тех пор, пока весь массив не будет отсортирован.

Вот пример кода на языке Паскаль, который сортирует массив из 10 чисел случайным образом по возрастанию и по убыванию:

program SortArray;

var
  arr: array[1..10] of Integer;
  i, j, temp: Integer;

begin
  // Заполняем массив случайными числами
  Randomize;
  for i := 1 to 10 do
    arr[i] := Random(100);

// Сортировка по возрастанию
  for i := 1 to 9 do
    for j := 1 to 10 - i do
      if arr[j] > arr[j + 1] then
      begin
        temp := arr[j];
        arr[j] := arr[j + 1];
        arr[j + 1] := temp;
      end;

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

// Сортировка по убыванию
  for i := 1 to 9 do
    for j := 1 to 10 - i do
      if arr[j] < arr[j + 1] then
      begin
        temp := arr[j];
        arr[j] := arr[j + 1];
        arr[j + 1] := temp;
      end;

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

end.

Этот код сначала заполняет массив `arr` случайными числами от 0 до 99 с помощью функции `Random`. Затем он сортирует массив по возрастанию с помощью двойного цикла `for`. Внутренний цикл сравнивает пары соседних элементов и меняет их местами, если они находятся в неправильном порядке. После сортировки по возрастанию, массив выводится на экран.

Затем код сортирует массив по убыванию, используя аналогичный алгоритм, но с измененным условием сравнения. После сортировки по убыванию, массив также выводится на экран.

Примечание: В приведенном коде используется язык программирования Паскаль. Если вы хотите использовать другой язык программирования, то алгоритм сортировки "пузырьком" может быть реализован похожим образом, но с использованием синтаксиса и функций, специфичных для выбранного языка программирования.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.