информатика 8 класс тема общие сведения о языке программирования Паскаль
Решите 10 задание
Решите подробно
Не знаете как записать правильно и подробно пройдите мимо!

  журден мне кажется симпатичным персонажем и вызывает у меня большее сочувствие, чем желание посмеяться над его чудачествами. а главное его чудачество заключается в том, что ему, городскому буржуа, потомственному торговцу, хочется стать дворянином. но речь идет о том, чтобы разбогатеть. ведь журден - довольно богатый и совсем не скупой. аристократ граф дорань постоянно берет у него в заем, а маркиза дорилина получает в подарок от журдена дорогой бриллиант. что плохого в том, что разбогатевший буржуа хочет стать культурным, просвещенным человеком? так, у журдена есть для этого скрытая причина и стимул: он влюблен в маркизу дорилину, госпожу из высшего мира. и он искренне верит, что все аристократы - культурные, порядочные и просвещенные люди. рядом с ними он остро ощущает свою неполноценность.

program sorting;

const

 N = 10;

var

 v: array[1..N] of integer;

 d: integer;

 i, t: integer;  

 k: boolean;  

begin

 randomize;

 write('ДО сортировки:    ');

 for i := 1 to N do

 begin

   readln(v[i])

   write(v[i]:6);

 end;

}  

 d := N div 2;

 while(d > 0) do

 begin

   k := true;  

   while k do

   begin

     k := false;

     i := 1;

     for i := 1 to N - d do

     begin

       if(v[i] > v[i + d]) then

       begin

         t := v[i];

         v[i] := v[i + d];

         v[i + d] := t;

         k := true;

       end;

     end;

   end;    

   d := d div 2;

 end;

 writeln;

 write('ПОСЛЕ сортировки: ');

 for i := 1 to N do

   write(v[i]:6);

 writeln;

end.