Question

Se considera un tablou unidimensional A[1..n] cu elemente numere întregi . Să se compună un program care va transcrie începutul tabloului B[1..n] în ordine descrescatoare elementele lui nenegative,apoi, în continuare pe cele negative în ordine descrescatoare .Se va aplica metoda insertiei. În limbajul Turbo pascal. Mulțumesc

Answer 1

o varianta

se poate adauga citirea de la tastatura a lui A[..n]

program sortare;
var A : Array [1..6] of Integer=(17,-4,6,-40,8,-19);
size : Integer;
i, j, index : Integer;
Begin
size:=7;
For i := 2 to size-1 do
Begin
index := A[i];
j := i;
While ((j > 1) AND (A[j-1] < index)) do
Begin
A[j] := A[j-1];
j := j - 1;
End;
A[j] := index;
End;

for i:=1to 6 do
writeln(A[i]);
end.