Массив Опции

[Beseech]

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

[-=Domestos=-]

Берешь любую сортировку, например "Пузырек"
Bubble

for i:=1 to (n-1) do
 begin
  for j:=1 to (n-1) do
   begin
    if A[j]>A[j+1] then
     begin
      t:=A[j];
      A[j]:=A[j+1];
      A[j+1]:=t;
     end;
   end;
 end;

Копируешь массив А целиком в В, а потом сортируешь B - вот и всё!

Сообщение отредактировано: -=Domestos=- - 19.03.2007 23:14