C++:

#include <iostream>
#include <stdio.h>
using namespace std;
int main(){
    int n;
    float tg,s,a[n];
    cout << "n=";
    cin >> n ;
    for (int i=1;i<=n;i++){
        cout << "a[" << i <<"]=";
        cin >> a[i];
        s = s + a[i];
    }
    for (int i=1;i<=n;i++){
        for (int j=i+1;j<=n;j++){
            if (a[i] > a[j]) {
                tg=a[i];
                a[i] = a[j];
                a[j] = tg;  ;
            }
        } 
    }
    cout << "Day sau kh sap xep: " ;
    for (int i=1;i<=n;i++) cout << a[i] <<" ";
}

Pascal :

uses crt;
 var a : array[1..100] of real ;
 tg : real;
  n,i,j: longint ;
   begin
    clrscr;
write('N=');
 readln(n);
for i := 1 to n do
     begin
    write('a[',i,']=');
    readln(a[i]);
     end;
for i := 1 to n do 
 for j := i + 1 to n do 
  if a[i] > a[j]  then
         begin
        tg := a[i];
        a[i]:= a[j];
        a[j]:= tg;
         end;
    write('Mang sau khi sap xep: ');
 for i := 1 to n do write(a[i]:3:2,' ');
  readln;
        end.

uses crt;
var a: array[1..100] of integer;
i,n,j,t: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i,': '); readln (a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write ('Day sau khi sap xep tang khong giam: ');
for i:=1 to n do write (a[i]:2);

readln;
end.