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

[Serge_Bliznykov]

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

мой пост #9 Вы пропустили?
Там я дал пример кода, которым можно заполнить массив случайными числами, упорядоченными по возрастанию, кроме последнего элемента (в последний элемент будет записано просто случайное число)!

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

так об этом уже неоднократно говорилось в данной теме.
вот тут даже пример кода (правда на С) - пост #15

перебором ищем нужный элемент, все после него сдвигаем на 1 ближе к концу, а в найденное место записываем последний элемент.

[niwssg]

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

так об этом уже неоднократно говорилось в данной теме.
вот тут даже пример кода (правда на С) - пост #15

перебором ищем нужный элемент, все после него сдвигаем на 1 ближе к концу, а в найденное место записываем последний элемент.

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

[Аватар]

  for i:=Low(a) to High(a)-1 do
    if a[i]>a[High(a)] then begin
      b:=a[High(a)];
      Move(a[i],a[i+1],SizeOf(Integer)*(High(a)-i));
      a[i]:=b;
      Break;
    end;

[nadyaH]

var
N,t,j,i:integer;
a:TArray;
begin
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);
RichEdit1.Lines.Clear;
RichEdit1.Lines.Append(ArrayToString(a,n));
end;end.

Заполняет большими числами, притом не по возрастанию.

[Аватар]

Заполняет большими числами, притом не по возрастанию

что написали, то и делает

a[i] := a[i+1] + ...

догадайтесь с трех раз что это сделает

[nadyaH]

и всё таки , как будет правильней ?
Писали писали мне части программы , до меня так и не дошло что? где? и как? нужно исправить.

[Serge_Bliznykov]

for i:=2 to n-1 do
      a[i] := a[i+1] + 1 + random(10);

это я косякнул, разумеется нужно, чтобы следующий был больше ПРЕДЫДУЩЕГО!!!

попробуйте заменить цикл на такой:

for i:=2 to n-1 do
      a[i] := a[i-1] + 1 + random(10);

[Poma][a]

Мда.. Почти 30 постов.. Красота..

var
    n, i, p, l, r, s, t : Integer;
    a : array [1..100] of Integer;

begin
    Randomize;
    ReadLn(n);
    a[1] := Random(10);
    for i := 2 to n-1 do 
        a[i] := a[i-1] + 1 + Random(10); // 10x to Serge

    t := a[Random(n-1)+1];
    WriteLn(t);

    a[n] := t-1;

    for i := 1 to n do
        Write(a[i], ' ');
    WriteLn;

    l := 1; r := n-1;
    while l < r do begin
        s := (l+r) div 2;
        if a[s] < a[n] then
            l := s+1
        else
            r := s
    end;

    p := a[n];
    Move(a[l], a[l+1], (n-l)*SizeOf(Integer));
    a[l] := p;

    for i := 1 to n do
        Write(a[i], ' ')
end.

[nadyaH]

type
TArray = array[1..100] 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;
procedure TForm1.Button1Click(Sender: TObject);
var
n, i, p, l, r, s, t : Integer;
a: Tarray;
begin
N:=StrToInt(Edit1.Text);
Randomize;
a[1] := Random(10);
 for i := 2 to n-1 do
  a[i] := a[i-1] + 1 + Random(10);
  t := Random(n-1)+1;
a[n]:= t;
RichEdit1.Lines.Clear;
RichEdit1.Lines.Append(ArrayToString(a,n));
RichEdit2.Lines.Clear;
a[n] := t-1;
for i := 1 to n do
   l := 1;
   r := n-1;
    while l < r do begin
        s := (l+r) div 2;
        if a[s] < a[n] then
            l := s+1
        else
            r := s
    end;

p := a[n];
Move(a[l], a[l+1], (n-l)*SizeOf(Integer));
a[l] := p;
RichEdit2.Lines.Append(ArrayToString(a,i));
end;end.

Заполнение массива правильное! НО ответ не верный! Что то не так...

[Poma][a]

Ужасть.. Вы записали алгоритм Аватара и мой в одну программку.. мдя..