viết CT nhập điểm các bn trong lớp 8A.In ra mh số bn đạt kết quả giỏi,khá,TB,kém. điều kiện-giỏi>8,0 khá 6,5-7,9 TB 5,0-6,4 kém <5,0

#include<bits/stdc++.h>
using namespace std;
int main()
{
    int n,gioi=0,kha=0,tb=0,kem=0;
    cin>>n;
    float diem8a[n];
    for(int i=0;i<n;i++){
        cin>>diem8a[i];
        if(diem8a[i]>8){
            gioi++;
        }
        else if(diem8a[i]>=6.5&&diem8a[i]<=7.9){
            kha++;
        }
        else if(diem8a[i]>=5&&diem8a[i]<=6.4){
            tb++;
        }
        else if(diem8a[i]<5){
            kem++;
        }
    }
    cout<<"Lop 8a co:\n"<<gioi<<" hoc sinh gioi\n"<<kha<<"hoc sinh kha\n"<<tb<<" hoc sinh trung binh\n"<<kem<<" hoc sinh kem";
    //samon247
    return 0;
}

program ct;

uses crt;

var Diem:array[1..50] of real;

      i,n,G,Kh,Tb,K:integer;

begin clrscr;

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

   for i:=1 to n do;

     begin

        writeln('Nhap diem hoc sinh thu ',i,': '); readln(Diem[i]);

     end;

     G:=0; Kh:=0; Tb:=0; K:=0;

   for i:=1 to n do

     begin

        if Diem[i] >8.0 then G:=G+1;

        if 6.5<= Diem[i] and Diem[i] <=7.9 then Kh:=Kh+1;

        if 5.0<= Diem[i] and Diem[i] <=6.4 then Tb:=Tb+1;

        if Diem[i] <5.0 then K:=K+1;

     end;

   writeln('So ban hoc sinh gioi la: ',G);

   writeln('So ban hoc sinh kha la: ',Kh);

   writeln('So ban hoc sinh trung binh la: ',Tb);

   writeln('So ban hoc sinh kem la: ',K);

readln;

end.

Học tốt!