Вопрос от Анонимного юзера 17 февраля 2025 09:42

Question 1

Составить программу упорядоченного элемента массива с 6 по 10 в порядке убывания. Вывести массив, после сортировки Pascal, метод пузырька

Answer

var
  arr: array[1..10] of Integer;
  i, j, temp: Integer;
begin
  // Инициализация массива
  arr[1] := 5; arr[2] := 2; arr[3] := 8; arr[4] := 1; arr[5] := 9;
  arr[6] := 3; arr[7] := 7; arr[8] := 6; arr[9] := 4; arr[10] := 0;

  // Сортировка массива с 6 по 10 метод пузырька
  for i := 6 to 9 do
    for j := 6 to 10 - i + 5 do
      if arr[j] < arr[j + 1] then
      begin
        temp := arr[j];
        arr[j] := arr[j + 1];
        arr[j + 1] := temp;
      end;

  // Вывод отсортированного массива
  for i := 1 to 10 do
    Write(arr[i], ' ');
end.

Question 2

Составить программу упорядоченного элемента массива с 6 по 10 в порядке убывания. Вывести массив, после сортировки Pascal, метод пузырька

Answer

```pascal var arr: array[1..10] of Integer; i, j, temp: Integer; begin // Инициализация массива arr[1] := 5; arr[2] := 2; arr[3] := 8; arr[4] := 1; arr[5] := 9; arr[6] := 3; arr[7] := 7; arr[8] := 6; arr[9] := 4; arr[10] := 0; // Сортировка массива с 6 по 10 метод пузырька for i := 6 to 9 do for j := 6 to 10 - i + 5 do if arr[j] < arr[j + 1] then begin temp := arr[j]; arr[j] := arr[j + 1]; arr[j + 1] := temp; end; // Вывод отсортированного массива for i := 1 to 10 do Write(arr[i], ' '); end. ```

Составить программу упорядоченного элемента массива с 6 по 10 в порядке убывания. Вывести массив, после сортировки Pascal, метод пузырька

Ответ нейросети

Задай свой вопрос

Похожие вопросы 15