Последоватеоьность и процедура., Помогите кто чем сможет...=) Опции

[DLF]

Ввести неупорядоченную последовательность из 20 элементов.Написать процедуры упорядочивания последовательности и вставки К новых элементов на правильное место в упорядоченную последовательность.Вывести результаты всех обработок последовательности.

Заранее спасибо.=)

[Lapp]

Если предполагать, что размер массива взят с большим запасом, то есть он заведомо больше 20+К, то, имхо, можно не заморачиваться со списками.

DLF, мысли твои в целом правильные. Начинай писать программу. Для действий, предусмотренных в задании, можешь использовать примерно такие фрагменты:

1. Упорядочивание методом пузырька:

for j:=2 to n do for i:=n downto j do if a[i-1]>a[i] then begin
  b:=a[i];
  a[i]:=a[i-1];
  a[a-1]:=b
end;

2. Вставка числа b на правильное место:

i:=1;
while (i<=n) and (a[i]<=b) do begin
  for j:=n downto i do a[j+1]:=a[j];
  a[j]:=b;
  Inc(n)
end;

Здесь n - реальное количество чисел в последовательности. Предполагается, что оно всегда меньше размерности массива a[1..m]. То есть если, скажем, в начале n=20, а K=10, то в конце работы программы n увеличится до 30. Если взять m=100, то все будут довольны .