Program wanted;
Uses crt;
Var A: Array[0..100] Of integer;
i,n,j,max: integer;
Begin
clrscr;
randomize;
write('nhap n=');
readln(n);
For i:=1 To n Do
A[i] := random(100)-random(100);
writeln('Day so la:');
For i:=1 To n Do
write(A[i],';');
For i:=1 to n-1 Do
For j:=1+i To n Do
If A[i]>A[j] Then
Begin
max := A[i];
A[i] := A[j];
A[j] := max
End;
writeln;
writeln('Day so duoc sap xep la:');
For i:=1 To n Do
write(A[i],';');
readln
End.