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

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

Задать свой вопрос
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] gt; 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] lt; 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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт