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

[Serge_Bliznykov]

Сообщение от rrrFer

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

Это смотря для чего (какая задача решается).
Вы что конкретно имеете в виду?

[rrrFer]

имею ввиду ваш код из 9 поста

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

если мы хотим отсортировать массив кроме последнего элемента - то последний элемент трогать вообще не надо (ни в первом цикле, ни во вложенном).

[Serge_Bliznykov]

Сообщение от rrrFer

имею ввиду ваш код из 9 поста

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

если мы хотим отсортировать массив кроме последнего элемента - то последний элемент трогать вообще не надо (ни в первом цикле, ни во вложенном).

тогда уже так (последний не трогаем)

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

[Utkin]

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

Это делать надо? Или еще только пока идет обсуждение как сформировать условие задачи?

[niwssg]

    
    while(mas[max-1] > mas[i++])
        ;
    c = mas[max-1];

    while( max-1 != i-1)
    {
        mas[max-1]= mas[max-2];
        max--;
    }
    mas[i-1]=c;

Что то вроде этого получилось. max - кол. элементов.
Гуру поправят надеюсь, я только учусь.
Не стал усложнять бинарными поисками.

[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;
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(41);
SortirArray(a,i);  
RichEdit1.Lines.Clear;
RichEdit1.Lines.Append(ArrayToString(a,n)); 
RichEdit2.Lines.Clear;
for i:=1 to N 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;
RichEdit2.Lines.Append(ArrayToString(a,n));
end;end.

[Serge_Bliznykov]

не знаю, мне в этой строке никакой ошибки не выдало!

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;
end;

p.s. запакуйте исходники проекта в архив и приложите полученный архив к сообщению на форуме

p.p.s. Вы зря не читаете то, что Вам пишут. Вам НЕ НУЖНА СОРТИРОВКА МАССИВА целиком.
Перечитывайте выделенный текст до тех пор, пока не осознаете, что Вы в программе делаете не то, что требуется!

[nadyaH]

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

[niwssg]

Мне видится что нужно взять последний элемент и сделать вставку со смещением. Ну или не делать в зависимости от значения последнего элемента массива.

[nadyaH]

Как это реализовать в делфи?