Question

Как сделать возрастание в паскале напишете программу с массивом

Answer 1

PascalABC.NET

Ответ:

• begin
• var n := ReadInteger('Введите длину массива:');
• var a := ReadArrInteger('Введите элементы массива:',n);
• Print('Отсортированный по возрастанию:',a.Order.JoinToString);
• end.

Пример работы:

Answer 2

Конечно, я могу помочь вам написать программу на языке Pascal, которая будет сортировать массив в порядке возрастания. Для примера, давайте воспользуемся алгоритмом сортировки пузырьком. Этот алгоритм не самый эффективный, но простой для понимания.

Пример программы на Pascal:

pascalCopy code
program BubbleSort;

const
  MAX_SIZE = 10;

type
  IntArray = array[1..MAX_SIZE] of Integer;

var
  arr: IntArray;
  i, j, temp: Integer;

procedure Swap(var a, b: Integer);
var
  temp: Integer;
begin
  temp := a;
  a := b;
  b := temp;
end;

begin
  writeln('Введите ', MAX_SIZE, ' целых чисел:');
  for i := 1 to MAX_SIZE do
    readln(arr[i]);

  { Сортировка пузырьком }
  for i := 1 to MAX_SIZE - 1 do
    for j := 1 to MAX_SIZE - i do
      if arr[j] > arr[j + 1] then
        Swap(arr[j], arr[j + 1]);

  writeln('Отсортированный массив:');
  for i := 1 to MAX_SIZE do
    writeln(arr[i]);
end.

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

Обратите внимание, что это только пример, и существуют более эффективные алгоритмы сортировки, такие как быстрая сортировка или сортировка слиянием.