Сортировка массива Опции

[alena]

у меня задание упорядочить по не убыванию массив, содержащий 15 вещественных чисел
прога есть, но почемуто не прально работает, можете помочь, пожалуйста.

[alena]

Народ, помогите пожалуйста, я уже все перепробовала, в чем у меня ошибка? Лаба горит!

[Lapp]

в чем у меня ошибка?

Ты делаешь совсем не то. Ты проходишь по массиву, собираешь все его отрицательные элементы в массив b, а все неотрицательные - в массив c. А потом ты обратно закладываешь это в массив a (не совсем точно сказал - не закладываешь, а пытаешься закладывать, так как ты это делаешь с ошибками). При этом порядок следования как отрицательных, так и неотрицательных - сохраняется. Единственное "продвижение вперед" - это то, что отрицательные все же будут впереди положительных - не так уж много пользы, особенно если в массиве все элементы случатся одного знака..

В разделе Задачи есть подраздел FAQ. Там есть тема про сортировку, вот прямая ссылка на нее: Методы сортировок. Зайди и посмотри теорию. Что касается практики, то я сделал тебе простейшую сортировку пузырьком (про что говорила мисс_граффити) - разберись с кодом. Спрашивай, что непонятно.

var
  a:array [1..15] of integer;
  b,i, j, k:integer;

begin
  randomize;
  for i:=1 to 15 do begin
    a[i]:=random(15)-8;
  end;
  WriteLn('Исходный массив:');
  for i:=1 to 15 do write (a[i]:4);
  WriteLn;
  for j:=1 to 14 do for i:=14 downto j do if a[i]>a[i+1] then begin
    b:=a[i];
    a[i]:=a[i+1];
    a[i+1]:=b
  end;
  WriteLn('Отсортированный массив:');
  for i:=1 to 15 do write (a[i]:4);
  readln;
end.