Массив Опции

[Beseech]

Дан одномерный массив A из 20 элементов. Сформировать одномерный массив B из 20 элементов такой,что в нем сначало идут отрицательные,затем нулевые,а затем положительные элементы массива A. Вывести на экран исходный и сформулированный массивы.

[КМА]

Tan, у тебя ошибка во всяком случае это сортировка точно не пузырек. -=Domestos=- в принципе написал правильную сортировку, единственное, что можно подкорректировать, то что второй цикл стоит начинать не с 1 элемента, а с i так по крайней мере мы сэкономим несколько шагов. Вот окончательный вариант:

procedure sortBubble (Var A: array [1..n] of integer);
Var i, j: byte;
     t: integer; 
Begin
  for i:=1 to (n-1) do
   for j:=i to (n-1) do
    if A[j]>A[j+1] 
       then
         begin
           t:=A[j];
           A[j]:=A[j+1];
           A[j+1]:=t
         end
End;

Сообщение отредактировано: КМА - 20.03.2007 4:45