Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Включение числа в отсортированный массив

Автор: Fist 28.11.2006, 15:16

Дан отсортированный массив. Нужно включить элемент K в этот массив, не нарушая последовательности.

Код


   For i := 1 to 10 do
       Begin
            If a[i] < k then
               Begin
                     kk := a[i];
                     a[i] := k;
                     k := kk;
                {    For j := i to 11 do
                        Begin
                             a[j+1] := a[j];
                        End;
                    a[i] := k;}
               End;
       End;

Так, у меня не получилось. Помогите! Срочно! У меня немного времени осталось! я не знаю как...

Автор: volvo877 28.11.2006, 15:30

Код

const
  n = 10;
  a: array[1 .. n + 1] of integer = (
    1, 3, 5, 7, 9, 10, 14, 17, 23, 38, 0
  );

var
  i, X: integer;
begin
  X := 8; { <--- Включаемое число }

  i := n;
  while (i > 0) and (X < a[i]) do begin
    a[i + 1] := a[i]; dec(i);
  end;
  a[i + 1] := X;

  for i := 1 to n + 1 do write(a[i]:3);
end.