Question

Элементы массива, не превышающие заданного числа, расположить в порядке возрастания и переставить в начало массива

Answer 1

program raf105;

const

 n = 10; //Размер массива

var

 a,b,c: array[1..n] of integer;

 x,i,j,b2,c2,min,minpos: integer;

begin

 write('Введите число: ');

 readln(x);

 writeln('Вводите числа по очереди');

 for i:=1 to n do

 begin

   readln(a[i]);

   if a[i] > x

     then begin

       c2:= c2+1;

       c[c2]:= a[i];

     end

     else begin

       b2:= b2+1;

       b[b2]:= a[i];

     end;

 end;

 for i:=1 to b2 do

 begin

   min:= b[i];  

   minpos:= i;

   for j:=i to b2 do

     if b[j] < min

       then begin

         min:= b[j];

         minpos:= j;

       end;

   b[minpos]:= b[i];

   b[i]:= min;

 end;

 for i:=1 to b2 do

   a[i]:= b[i];

 for i:=1 to c2 do

   a[i+b2]:= c[i];

 write('Вывод: ');

 for i:=1 to n do

   write(a[i],' ');

end.

PascalABC 3.4.2

Answer 2

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

1. Пройтись по всем элементам массива и выбрать только те элементы, которые не превышают заданное число.
2. Отсортировать выбранные элементы в порядке возрастания.
3. Переставить отсортированные элементы в начало массива.

Вот пример кода на языке Python, который решает эту задачу:

pythonCopy code
def elements_less_than(arr, num):
    # Выбираем только элементы, которые не превышают заданное число
    selected_elements = [x for x in arr if x <= num]

    # Сортируем выбранные элементы в порядке возрастания
    sorted_elements = sorted(selected_elements)

    # Находим индекс начала переставляемой части
    start_index = arr.index(selected_elements[0])

    # Переставляем элементы в начало массива
    for i, element in enumerate(sorted_elements):
        arr[start_index + i] = element

    return arr

# Пример использования функции
input_array = [8, 3, 10, 5, 1, 7]
limit = 6

result_array = elements_less_than(input_array, limit)
print(result_array)

Для данного примера вывод будет: [1, 3, 5, 8, 10, 7], так как элементы не превышающие 6 (заданное число), были переставлены в начало массива и отсортированы в порядке возрастания.