Question

Решить задачу в паскале абс. СРОЧНО! дан одномерный массив,состоящий из 5 элементов, необходимо вывести на экран рассортированный массив таким образом,чтобы числа лежащие в диапазоне от 10 до 20 и от 80 до 90 были выведены в левой части,а остальные в правой. Если можно,то и объясните пожалуйста

Answer 1

Программа с комментариями в прикрепленном файле

Answer 2

Конечно! Вот пример решения данной задачи на языке Pascal:

pascalCopy code
program SortArray;

var
  arr: array[1..5] of integer;  // Одномерный массив из 5 элементов
  leftIndex, rightIndex, i: integer;

begin
  // Ввод элементов массива
  writeln('Введите 5 элементов массива:');
  for i := 1 to 5 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

  // Сортировка массива
  leftIndex := 1;
  rightIndex := 5;

  while leftIndex < rightIndex do
  begin
    while (arr[leftIndex] >= 10) and (arr[leftIndex] <= 20) do
      inc(leftIndex);

    while (arr[rightIndex] < 10) or (arr[rightIndex] > 20) do
      dec(rightIndex);

    if leftIndex < rightIndex then
    begin
      // Обмен значениями
      arr[leftIndex] := arr[leftIndex] + arr[rightIndex];
      arr[rightIndex] := arr[leftIndex] - arr[rightIndex];
      arr[leftIndex] := arr[leftIndex] - arr[rightIndex];
    end;
  end;

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

  readln;
end.

В этом коде мы сначала вводим пять элементов массива с помощью оператора readln. Затем мы используем два индекса (leftIndex и rightIndex), чтобы просматривать массив с левой и правой стороны.

Мы выполняем следующие шаги:

1. Инициализируем leftIndex с 1 и rightIndex с 5.
2. В цикле while мы перемещаем leftIndex вправо до тех пор, пока значение arr[leftIndex] находится в диапазоне от 10 до 20.
3. Во втором цикле while мы перемещаем rightIndex влево до тех пор, пока значение arr[rightIndex] не находится в диапазоне от 10 до 20.
4. Если leftIndex меньше rightIndex, то значения, находящиеся вне диапазона, обмениваются местами с помощью временной переменной.
5. Цикл повторяется до тех пор, пока leftIndex не станет больше или равным rightIndex.
6. После завершения сортировки, мы выводим отсортированный массив на экран с помощью оператора write.

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