Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!! Дан линейный массив, содержащий n элементов. С клавиатуры вводится число k. Составьте программу, которая элементы большие k оставит в начале массива, а элементы меньшие k поставит в конец массива. Например, дан массив чисел: 4 10 34 26 13 41 6 18 32 и число k=15, то преобразованный массив должен быть таким: 34 26 41 18 32 4 10 13 6​

Answer 1

program raf105;

const

 n = 9;

var

 a,b1,b2:array[1..n] of integer;

 k,i,j,c1,c2:integer;

begin

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

readln(k);

writeln('Заполните массив:');

for i:=1 to n do

 readln(a[i]);

for i:=1 to n do

begin

 if a[i] > k

   then begin

     c1:= c1 + 1;

     b1[c1]:= a[i];

   end;

 if a[i] < k

   then begin

     c2:= c2 + 1;

     b2[c2]:= a[i];

   end;

end;

for i:=1 to c1 do

 a[i]:=b1[i];

for i:=c1+1 to c2+c1 do

 a[i]:=b2[i-c1];

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

for i:=1 to n do

 write(a[i],' ');

end.

PascalABC 3.4.2

Answer 2

Конечно, я могу помочь вам с этой задачей. Вот пример программы на языке Python, которая решает указанную задачу:

pythonCopy code
def rearrange_array(arr, k):
    greater = []
    lesser = []

    for num in arr:
        if num > k:
            greater.append(num)
        else:
            lesser.append(num)

    return greater + lesser

# Пример использования:
arr = [4, 10, 34, 26, 13, 41, 6, 18, 32]
k = 15
rearranged_arr = rearrange_array(arr, k)
print(rearranged_arr)

Эта программа определяет два списка: greater (содержит элементы больше k) и lesser (содержит элементы меньше или равные k). Затем она объединяет эти два списка, чтобы получить преобразованный массив, где элементы больше k идут первыми, а элементы меньше или равные k идут после них.

В результате приведенного примера вывод будет следующим:

csharpCopy code
[34, 26, 41, 18, 32, 4, 10, 13, 6]

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