program ct;

uses crt;

var T,V,A:array[1..100] of real;

      i,n,d:integer;

      Tb:real;

begin clrscr;

   write('Nhap so hoc sinh: '); readln(n);

   for i:=1 to n do

     begin

        write('Diem toan cua hs thu ',i,': '); readln(T);

        write('Diem van cua hs thu ',i,': '); readln(V);

        write('Diem a.van cua hs thu ',i,': '); readln(AV);

     end.

   for i:=1 to n do

     Tb:=(T[i]+V[i]+A[i])/n;

   if Tb>=23 then inc(d);

   write('So hs da dau la: ,d);

readln;

end.

Học tốt!

#include <bits/stdc++.h>
using namespace std;
int main()
{
    int n,dau=0;
    float dtb;
    cin>>n;
    int toan[n],anh[n],van[n];
    for(int i=0;i<n;i++){
        cout<<"Diem thi hsg toan cua hoc sinh thu "<<i+1<<": ";
        cin>>toan[i];
        cout<<"Diem thi hsg anh cua hoc sinh thu "<<i+1<<": ";
        cin>>anh[i];
        cout<<"Diem thi hsg van cua hoc sinh thu "<<i+1<<": ";
        cin>>van[i];
    }
    for(int i=0;i<n;i++){
        dtb+=(toan[i]+anh[i]+van[i])/(float)3;
        if(toan[i]+anh[i]+van[i]>23){
            dau++;
        }
    }
    cout<<"Diem trung binh cua lop moi mon: "<<dtb;
    cout<<"\nSo hoc sinh da dau la: "<<dau;
    //samon247
    return 0;
}