program oken;
uses crt;
type diem=0..10;
var n: array [1..10] of diem;
    i,j,tam:longint;
begin
        clrscr;
        for i:=1 to 10 do
           begin
                write('Nhap diem ban thu ',i,': ');
                readln(n[i]);
           end;
        writeln('xet loai cac ban:');
        for i:=1 to 10 do
                if n[i]>=5 then writeln('    ban thu ',i,' dau diem TB.')
                else writeln('  ban thu ',i,' thi lai.');
        for i:=1 to 9 do
                for j:=i+1 to 10 do
                        if n[i]>n[j] then
                            begin
                              tam:=n[i];
                              n[i]:=n[j];
                              n[j]:=tam;
                            end;
        write('sap xep theo thu tu tang dan: ');
        for i:=1 to 10 do
                write(n[i],' ');
        readln;
end.

#include<bits/stdc++.h>
using namespace std;
int main()
{
    int dau=0,tl=0;
    int arr[10];
    for(int i=0;i<10;i++){
        cin>>arr[i];
        if(arr[i]>=5){
            dau+=1;
        }
        else{
            tl+=1;
        }
    }
    cout<<"So hoc sinh dau: "<<dau<<"\nSo hoc sinh thi lai: "<<tl<<endl;
    for(int i=0;i<9;i++){
        for(int j=i+1;j<10;j++){
            if(arr[i]>arr[j]){
                int temp=arr[i];
                arr[i]=arr[j];
                arr[j]=temp;
            }
        }
    }
    for(int i=0;i<10;i++){
        cout<<arr[i]<<" ";
    }
    //samon247
    return 0;
}