Lớp có 31 bạn, 5 bạn HSG, 10 bạn HSK, 16 bạn học sinh Trung Bình

`TL`

uses crt;

var a : array [1 .. 100] of real;

i, N, d1, d2, d3, d4 : integer;

begin

clrscr;

write('Nhap so luong hoc sinh : '); readln(N);

d1 := 0; d2 := 0; d3 := 0; d4 := 0;

write('Nhap diem cua ', N ,' hoc sinh : ');

for i := 1 to N do begin read(a[i]);

if a[i] >= 8 then d1 := d1 + 1

else if (a[i] >= 6.5) and (a[i] <= 7.9) then d2 := d2 + 1

else if (a[i] >= 5) and (a[i] < 6.5) then d3 := d3 + 1

else d4 := d4 + 1; end;

writeln('So hoc sinh gioi : ', d1);

writeln('So hoc sinh kha : ', d2);

writeln('So hoc sinh trung binh : ', d3);

writeln('So hoc sinh kem : ', d4);

readln

end.

uses crt;

var a : array [1 .. 100] of real;

i, N, d1, d2, d3, d4 : integer;

begin

clrscr;

write('Nhap so luong hoc sinh : '); readln(N);

d1 := 0; d2 := 0; d3 := 0; d4 := 0;

write('Nhap diem cua ', N ,' hoc sinh : ');

for i := 1 to N do begin read(a[i]);

if a[i] >= 8 then d1 := d1 + 1

else if (a[i] >= 6.5) and (a[i] <= 7.9) then d2 := d2 + 1

else if (a[i] >= 5) and (a[i] < 6.5) then d3 := d3 + 1

else d4 := d4 + 1; end;

writeln('So hoc sinh gioi : ', d1);

writeln('So hoc sinh kha : ', d2);

writeln('So hoc sinh trung binh : ', d3);

writeln('So hoc sinh kem : ', d4);

readln

end.