Дан массив n чисел. Преобразовать его таким образом, чтобы положительные числа были в начале, 0 в середине, отрицательные в конце

Категория: Delphi/Pascal

2012-10-03 16:05:26

code: #pascal

var a: array[1..n] of integer;
...
for i:=1 to n-1 do begin
 for j:=i+1 to n do begin
  if a[i] > a[j] then begin
   m := a[i];
   a[i] := a[j];
   a[j] := m;
  end;
 end;
end;
// остаеться лишь вывести массив на экран

автор: LastSoul

Поделиться:

Sample Code

категории

Дан массив n чисел. Преобразовать его таким образом, чтобы положительные числа были в начале, 0 в середине, отрицательные в конце

Похожие статьи: