Question

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

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

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

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

Вот как это можно реализовать в коде:

pascalCopy code
program SortAndMoveArrayElements;

const
  MAX_SIZE = 100; // Максимальный размер массива

type
  TArray = array [1..MAX_SIZE] of Integer;

var
  arr: TArray;
  n, limit, i, j, temp: Integer;

procedure SortAscending(var a: TArray; size: Integer);
var
  i, j, temp: Integer;
begin
  for i := 1 to size - 1 do
  begin
    for j := i + 1 to size do
    begin
      if a[i] > a[j] then
      begin
        temp := a[i];
        a[i] := a[j];
        a[j] := temp;
      end;
    end;
  end;
end;

begin
  // Ввод размера массива и элементов
  Write('Введите размер массива (не более ', MAX_SIZE, '): ');
  ReadLn(n);

  WriteLn('Введите элементы массива:');
  for i := 1 to n do
    ReadLn(arr[i]);

  // Ввод числа-ограничения
  Write('Введите число-ограничение: ');
  ReadLn(limit);

  // Фильтрация и сортировка
  j := 1;
  for i := 1 to n do
  begin
    if arr[i] <= limit then
    begin
      arr[j] := arr[i];
      Inc(j);
    end;
  end;
  SortAscending(arr, j - 1);

  // Вывод отсортированного массива
  WriteLn('Отсортированный массив:');
  for i := 1 to j - 1 do
    WriteLn(arr[i]);
end.

Обратите внимание, что в данной реализации размер массива ограничен значением MAX_SIZE, которое равно 100. Вы можете изменить это значение в зависимости от вашего конкретного случая. Кроме того, перед тем как вставлять элементы в начало массива, код выполняет сортировку отфильтрованных элементов в порядке возрастания.