сортировка

[Дмитрий Solov]

Преподователь говорит, что сортировка должна быть методом вставки
В двух одномерных массивах, состоящих из n вещественных элементов, сортировать массивы методом вставки.

var
   a: array [1..100] of real;
   b: array [1..100] of real;
   i, n, j: integer;
    key: real;
begin
     writeln('n = ');
     readln(n);
     writeln('Vvedi 1 massiv ');
     for i := 1 to n do
         read(a[i]);
     writeln('Vvedi 2 massiv ');
     for i := 1 to n do
         read(b[i]);
     // Сортировка первого массива
     for j := 2 to n do
     begin
          key := a[j];
          i := j - 1;
          while ( (i > 0) and (a[i] > key) ) do
          begin
               a[i + 1] := a[i];
               i := i - 1;
          end;
          a[i + 1] := key;
     end;
     // Сортирвка второго массива
     for j := 2 to n do
     begin
          key := b[j];
          i := j - 1;
          while ( (i > 0) and (b[i] > key) ) do
          begin
               b[i + 1] := b[i];
               i := i - 1;
          end;
          b[i + 1] := key;
     end;
     
     for i := 1 to n do
         write(a[i], ' ');
     writeln;
     for i := 1 to n do
         write(a[i], ' ');
     writeln;
end.

ответьте пжл

[Leshii]

Ответ.

var
   a, b: array [1..100] of real;
   i, n, j, k, q: integer;
    key, keyy: real;
begin
     writeln('n = ');
     readln(n);
     writeln('Vvedi 1 massiv ');
     for i := 1 to n do  begin
         read(a[i]);
     end;

     for i := 1 to n do
     begin
          key := a[i];
          j:= i - 1;
          while  (j >= 1) and (a[j] < key)  do begin
               a[j + 1] := a[j];
               j := j - 1;
          end;
          a[j + 1] := key;
     end;

     for i := 1 to n do begin
         write(a[i]:3:2,' ');
     end;

     writeln('Vvedi 2 massiv ');
     for k := 1 to n do begin
         read(b[k]);
     end;
     for k := 1 to n do begin
          keyy := b[k];
          q := k - 1;
          while (q >= 1) and (b[q] < keyy)  do begin
               b[q + 1] := b[q];
               q := q - 1;
          end;
          b[q + 1] := keyy;
     end;

     for k := 1 to n do begin
         write(b[k]:3:2, ' ');
     end;
     readln;
end.