сортировка

[ччч1]

"пузырьковая"
14 1 1 1 1 1 1 1 1
8 14 2 2 2 2 2 2 2
12 8 14 5 5 5 5 5 5
7 12 8 14 7 7 7 7 7
9 7 12 8 14 8 8 8 8
1 9 7 12 8 14 9 9 9
5 5 9 7 12 12 14 10 10
10 10 5 9 9 9 12 14 12
2 2 10 10 10 10 10 12 14
прямое включение
14 8 12 7 9 1 5 10 2
8 14 12 7 9 1 5 10 2
8 12 14 7 9 1 5 10 2
7 8 12 14 9 1 5 10 2
7 8 9 12 14 1 5 10 2
1 7 8 9 12 14 5 10 2
1 5 7 8 9 12 14 10 2
1 5 7 8 9 10 12 14 2
1 2 5 7 8 9 10 12 14
посмотрите пожалуйста,что не так в сортировках

[Sciv]

посмотрите пожалуйста,что не так в сортировках

А код не проще было выложить?

[zxzxz]

а надо именно так посчитать

[ччч1]

const
    m = 20;
 
var
    arr: array[1..m] of integer;
    i, j, n,k: integer;
 
begin
    write ('введите массив n: ');
    readln(n);
    for i := 1 to m do begin
        arr[i] := (n);
        write (arr[i]:4);
    end;
    writeln; writeln;
 
 
    for i := 1 to m-1 do
        for j := 1 to m-i do
            if arr[j] > arr[j+1] then begin
                k := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := k
            end;
 
    write ('Отсортированный массив: ');
    for i := 1 to m do
        write (arr[i]:4);
 
    writeln;
 
readln
end.

помогите с кодом..выводит не правильно

[ччч1]

Program Sort;
 Const
 Nmax = 100;
 Var
  X : Array [1..Nmax] Of Real;
  A : Real;
  n, k, i : Integer;

Begin
 Writeln('Введите количество чисел');
 Readln(n);
 Writeln('Введите массив чисел');
 For i := 1 To n Do Read (X[i]);
 { Сортировка }
 For k := 1 To n-1 Do
   For i := 1 To n-1 Do
     If X[i] > X[i+1] Then
       Begin
         A:=X[i];
         X[i]:=X[i+1];
         X[i+1]:=A
       End;
 Writeln('Отсортированный массив чисел:');
 For i:=1 To n Do
 Write (X[i]);
End.

вот я сделала..а нельзя сделать чтоб он мне табличкой выводил, то есть вот так
14 1 1 1 1 1 1 1 1
8 14 2 2 2 2 2 2 2
12 8 14 5 5 5 5 5 5
7 12 8 14 7 7 7 7 7
9 7 12 8 14 8 8 8 8
1 9 7 12 8 14 9 9 9
5 5 9 7 12 12 14 10 10
10 10 5 9 9 9 12 14 12
2 2 10 10 10 10 10 12 14

[Sciv]

 For k := 1 To n-1 Do begin
   For i := 1 To n-1 Do begin
     If X[i] > X[i+1] Then
       Begin
         A:=X[i];
         X[i]:=X[i+1];
         X[i+1]:=A
       End;
      Write(X[i]:3);
    end;
  WriteLn;
end;

Как-то так, не проверял