Народ, помажите. Нужно написать программу, которая будет сортировать отрицательную последовательность в массиве. То есть, например:
массив
-1;-3;-6;-4;-2;2;2;2;2;2;
отсортирует в:
-6;-4;-3;-2;-1;2;2;2;2;2;
Без стандартных функций Java или C не могу ))%
Вот то у меня получилось, но работает как то криво. Точнее не криво, а не правильно. Если отрицательные числа идут в начале - то все ок, а если сначала идет любое положительное - лагает ):
program sort_array;
uses CRT;
type M = array[1..10] of integer;
var inp,sort:M;
var i,j,t,n_i:integer;
var n:boolean;
procedure setArray(var M:M);
begin
writeln('Input array`s element');
for i := 1 to 10 do begin
readln(M[i]);
end;
end;
procedure getSortArray(var M1:M);
//var temp:M;
begin
n := true;
for i := 1 to 10 do begin
for j := 0 to 10 - i do begin
if M1[i] AND M1[i+1] < 0 then begin
if M1[i] > M1[i+1] then begin
t := M1[i];
M1[i] := M1[i+1];
M1[i+1] := t;
end;
end;
end;
end;
writeln();
writeln('Sort array: ');
for i := 1 to 10 do begin
writeln('Array[',i,'] = ',M1[i]);
end;
end;
Begin
setArray(inp);
getSortArray(inp);
End.
ЗЫ. Паскаль изуаю уже третий час... (((8
вот так вот:
[beowulf@localhost pascal]$ ./sort_array
Input array`s element
1
2
-5
-6
-2
-4
-5
-10
0
3
Sort array:
Array[1] = 1
Array[2] = 2
Array[3] = -6
Array[4] = -5
Array[5] = -4
Array[6] = -5
Array[7] = -10
Array[8] = -2
Array[9] = 0
Array[10] = 3
[beowulf@localhost pascal]$