Question

Дан одномерный массив, состоящий из 10 чисел. Определить, является ли массив упорядоченным по возрастанию или убыванию.Pascal ABC

Answer 1

1) var mas:array[1..10] of Integer;
        i:integer;
begin
        i := mas[1];
        mas[1] := mas[6];
        mas[6] := i;
end.
Вот как то так

Answer 2

Для определения, является ли массив упорядоченным по возрастанию или убыванию, можно использовать следующий алгоритм на языке Pascal ABC:

program CheckArrayOrder;
var
  arr: array[1..10] of integer;
  i: integer;
  ascending, descending: boolean;
begin
  ascending := true;
  descending := true;

// Заполнение массива значениями
  arr[1] := 3;
  arr[2] := 5;
  arr[3] := 7;
  arr[4] := 9;
  arr[5] := 11;
  arr[6] := 13;
  arr[7] := 15;
  arr[8] := 17;
  arr[9] := 19;
  arr[10] := 21;

// Проверка упорядоченности массива по возрастанию
  for i := 2 to 10 do
  begin
    if arr[i] < arr[i-1] then
    begin
      ascending := false;
      break;
    end;
  end;

// Проверка упорядоченности массива по убыванию
  for i := 2 to 10 do
  begin
    if arr[i] > arr[i-1] then
    begin
      descending := false;
      break;
    end;
  end;

// Вывод результата
  if ascending then
    writeln('Массив упорядочен по возрастанию')
  else if descending then
    writeln('Массив упорядочен по убыванию')
  else
    writeln('Массив не упорядочен');
end.

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

Алгоритм проверяет каждый элемент массива с предыдущим элементом и устанавливает флаги `ascending` и `descending` в зависимости от результата сравнения. Если `ascending` равно `true`, значит массив упорядочен по возрастанию. Если `descending` равно `true`, значит массив упорядочен по убыванию. Если оба флага равны `false`, значит массив не упорядочен.

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

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