C :

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
int s[10000],n,i;
int cmp(const void *a,const void *b)
{
     return(*(int *)a-*(int *)b);//ÉýÐò£»b-a½µÐò
}
int main()
{
    scanf("%d",&n);
    for(i=0;i<n;i++)
	    scanf("%d",&s[i]);
    qsort(s,n,sizeof(s[0]),cmp);
    for(i=0;i<n;i++)
	    printf("%d ",s[i]);
  printf("\n");
    return 0;
}

C++ :

#include <cstdio>
#include <cstdlib>
#include <stack>
#include <algorithm>
using namespace std;
const int MAXN = 1000;
int val[MAXN];
int n;
void InsertSort() {
	int current;
	for (int i = 1;i < n;i++) {
		current = val[i];
		for (int j = 0;j < i;j++)
			if (val[j] > current) {
				for (int k = i;k > j;k--) {
					val[k] = val[k - 1];
				}
				val[j] = current;
				break;
			}
	}
}
int main() {
	scanf("%d", &n);
	for (int i = 0;i < n;i++) {
		scanf("%d", &val[i]);
	}
	InsertSort();
	for (int i = 0;i < n;i++) {
		printf("%d ", val[i]);
	}
	puts("");
	return 0;
}

Pascal :

var a:array[1..100000] of longint;
    i,n:longint;
procedure qsort(l,r:longint);
var i,j,mid,p:longint;
begin
  i:=l; j:=r;
  mid:=a[(l+r) div 2];
  while i<=j do
  begin
    while a[i]<mid do inc(i);
    while a[j]>mid do dec(j);
    if i<=j then
    begin
      p:=a[i];
      a[i]:=a[j];
      a[j]:=p;
      inc(i);
      dec(j);
    end;
  end;
  if l<j then qsort(l,j);
  if i<r then qsort(i,r);
end;
 
begin
  read(n);
  for i:=1 to n do
    read(a[i]);
  qsort(1,n);
  for i:=1 to n do
    write(a[i],' ');
end.

Java :

import java.util.Arrays;
import java.util.Scanner;

public class Main {
  private static Scanner s = new Scanner(System.in) ;
  
  public static void main(String[] args) {
	 int num = s.nextInt() ;
	 if(num<=100000){
	 int a[] = new int[num] ;
	 for (int i = 0; i < num; i++) {
		a[i] = s.nextInt() ;
	 }
	 
	 Arrays.sort(a);
	 
	 for (int i = 0; i < a.length; i++) {
		System.out.print(a[i]+" "); 
	  }
	 System.out.println();
	 }
  }
}