Bài 1: Cho mảng 1 chiều Diem gồm có 10 phần tử có kiểu số thực. Em hãy viết đoạn chương trình để thực hiện yêu cầu sau: 1. Nhập giá trị điểm cho mảng 2. Xuất giá trị mång điểm ra màn hình 3. Xuất ra màn hình giá trị điểm của phần tử thứ 3 4. Tìm phần tử có điểm lớn nhất (cho biết vị trí và giá trị điểm số) 5. Tìm phần tử có điểm nhỏ nhất (cho biết vị trí và giá trị diểm số) 6. Sắp xếp mảng Diem thành mång không giảm 7. Sắp xếp mảng Diem thành mång không tăng 8. In ra màn hình vị trí của các phân tử có giá trị lớn hơn 10 9. Hoàn chinh các đoạn chương trình trên thành 1 chương trình pascal hoàn chinh.

#include<bits/stdc++.h>
using namespace std;
int main()
{
    int n,vt1,vt2;
    cin>>n;
    int diem[n];
    for(int i=0;i<n;i++){
        cin>>diem[i];
    }
    int be=diem[0],lon=diem[0];
    for(int i=0;i<n;i++){
        cout<<diem[i]<<" ";
        if(be>diem[i]){
            be=diem[i];
            vt1=i;
        }
        if(lon<diem[i]){
            lon=diem[i];
            vt2=i;
        }
    }
    cout<<"\nPhan tu co diem lon nhat la "<<lon<<" o vi tri "<<vt2<<"\nPhan tu co diem be nhat la "<<be<<" o vi tri "<<vt1<<endl;
    for(int i=0;i<n-1;i++){
        for(int j=i+1;j<n;j++){
            if(diem[i]<diem[j]){
                int temp=diem[i];
                diem[i]=diem[j];
                diem[j]=temp;
            }
        }
    }
    for(int i=0;i<n;i++){
        cout<<diem[i]<<" ";
    }
    for(int i=0;i<n-1;i++){
        for(int j=i+1;j<n;j++){
            if(diem[i]>diem[j]){
                int temp=diem[i];
                diem[i]=diem[j];
                diem[j]=temp;
            }
        }
    }
    for(int i=0;i<n;i++){
        cout<<diem[i]<<" ";
    }
    cout<<"\nCac phan tu co gia tri lon hon 10: ";
    for(int i=0;i<n;i++){
        if(diem[i]>10){
            cout<<diem[i]<<" ";
        }
    }
    //samon247
    return 0;
}

program oken;
uses crt;
var a: array [1..100] of longint;
    i,n,max,min,j,tam:longint;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(n);
        for i:=1 to n do
                begin
                        write('diem ban thu ',i,': '); readln(a[i]);
                end;
        write('diem: ');
        for i:=1 to n do
                write(a[i],' ');
        writeln;
        writeln('diem cua ban thu 3: ',a[3]);
        max:=a[1]; min:=a[1];
        for i:=2 to n do
                if a[i]>max then
                        max:=a[i]
                else
                        if a[i]<min then
                                min:=a[i]
                        else
                                if (a[i]=max) and (a[i]=min) then Max:=Min;
        writeln('Max: ',max);
        writeln('Min: ',min);
        write('sap xep mang theo kieu khong giam: ');
        for i:=1 to n-1 do
                for j:=i+1 to n do
                        if a[i]>a[j] then
                            begin
                              tam:=a[i];
                              a[i]:=a[j];
                              a[j]:=tam;
                            end;
        writeln;
        for i:=1 to n do write(a[i],' ');
        write('sap xep mang theo kieu khong tang: ');
        for i:=1 to n-1 do
                for j:=i+1 to n do
                        if a[i]<a[j] then
                            begin
                              tam:=a[i];
                              a[i]:=a[j];
                              a[j]:=tam;
                            end;
        for i:=1 to n do write(a[i],' ');
        writeln;
        write('cac gia tri lon hon 10: ');
        for i:=1 to n do
                if a[i]>=10 then
                        write(a[i],' ');
        readln;
end.