Question

Напишите программу на языке Паскаль сортирующую 5 чисел, введённых с клавиатуры. Срочно

Answer 1

// PascalABC.NET

begin

 ReadSeqReal(5).Order.Println; // по возрастанию

 ReadSeqReal(5).OrderDescending.Println // по убыванию

end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая сортирует 5 чисел, введенных с клавиатуры:

pascalCopy code
program SortFiveNumbers;
var
  numbers: array[1..5] of Integer;
  i, j, temp: Integer;
begin
  writeln('Введите 5 чисел:');
  for i := 1 to 5 do
  begin
    write('Число ', i, ': ');
    readln(numbers[i]);
  end;

  for i := 1 to 4 do
  begin
    for j := i+1 to 5 do
    begin
      if numbers[i] > numbers[j] then
      begin
        temp := numbers[i];
        numbers[i] := numbers[j];
        numbers[j] := temp;
      end;
    end;
  end;

  writeln('Отсортированные числа:');
  for i := 1 to 5 do
    writeln(numbers[i]);

  readln;
end.

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

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