Дан массив размера N, все элементы которого, кроме последнего, упорядочены по возрастанию. Сделать массив упорядоченным.

[nadyaH]

Дан массив размера N, все элементы которого, кроме последнего, упорядочены по возрастанию. Сделать массив упорядоченным, переместив последний элемент на новую позицию.

[nadyaH]

for i:=1 to N do
  for j:=i+1 to N do
    if A[i] >= A[j] then begin
        t := A[i];
        A[i] := A[j];
        A[j] := t
        end;
end;

Что нужно исправить, чтобы последний элемент массива не сортировался?

[Poma][a]

Нужно взять бинарный поиск, найти место вставки, сдвинуть массив, вставить..

[nadyaH]

И как это сделать?

[rrrFer]

Что нужно исправить, чтобы последний элемент массива не сортировался?

использовать N - 1 в цикле вместо N

[nadyaH]

Все равно так же .Нечего не меняет.

[Poma][a]

И как это сделать?

Вот так : тыц + тыц

[nadyaH]

type
TArray = array[1..40] of Integer;
 function ArrayToString(a: TArray; N: integer): string;
var
  i: integer;
begin
  result := '';
  for i:=1 to N-1 do
    result := result  + IntToStr(a[i])+',';
  result := result  + IntToStr(a[N]);
end;
function SortirArray (a: TArray;N:integer): string;
 var
 i,j,t:integer;
 begin
  for i:=1 to (N-2) do
  for j:=i+1 to (N-1) do
    if A[i] >= A[j] then begin
        t := A[i];
        A[i] := A[j];
        A[j] := t
        end;
if N=(t+1) then a[n]:=t+1
end;

procedure TForm1.Button1Click(Sender: TObject);
var
N,t,j,i:integer;
a:TArray;
begin
randomize;
  N:=StrToInt(Edit1.Text);
for i:=1 to n do
      a[i] := random(40);
RichEdit1.Lines.Clear;
RichEdit1.Lines.Append(ArrayToString(a,n));
RichEdit2.Lines.Clear;
begin
for i:=1 to N do   (если здесь поменять N на N-1, то в конце вылазет какое то большое число.)
  for j:=i+1 to N do
    if A[i] >= A[j] then begin
        t := A[i];
        A[i] := A[j];
        A[j] := t
        end;
end;
RichEdit2.Lines.Append(ArrayToString(a,i)); (выдаёт отсортированный массив без последнего элемента)
RichEdit3.Lines.Clear;
SortirArray(a,i); 
RichEdit3.Lines.Append(ArrayToString(a,i));
end;end.

Что нужно исправить чтобы программа работала правильно?

[Serge_Bliznykov]

for i:=1 to N do   (если здесь поменять N на N-1, то в конце вылазет какое то большое число.)

это неверно. ОБЯЗАТЕЛЬНО должно быть

for i:=1 to N-1 do
  for j:=i+1 to N do
  ...

но это всё не так важно.
Вы решаете НЕ ТУ задачу.
Вы сортируете массив ЦЕЛИКОМ. Это неправильно!
По условию задачи у Вас массив уже изначально задан упорядоченным (кроме последнего элемента).
Вот один последний элемент и нужно вставить в нужную позицию!


Кстати, правильное заполнение массива, как описано в условии задачи легко реализовать кодом:

  randomize;
  N:=StrToInt(Edit1.Text);
  if N < 1 then Exit;
  a[1] := random(10);
  for i:=2 to n-1 do
      a[i] := a[i+1] + 1 + random(10);
  a[n] := Random(n+10);
....

[rrrFer]

это неверно. ОБЯЗАТЕЛЬНО должно быть

Во втором цикле тоже N-1 должно быть )