PROGRAM CT46;
USES crt;
VAR n,i,Gioi,Kha,Trungbinh: BYTE;
A:ARRAY[1..255] OF REAL;
BEGIN
Writeln('Chuong trinh phan loai hoc sinh ');
Write('Nhap so hoc sinh cua lop : '); Readln(n);
FOR i:=1 TO n DO
BEGIN
Write('Diem Trung Binh cua hoc sinh thu ',i,': '); Readln(A[i]);
END;
Gioi:=0; Kha:=0; Trungbinh:=0;
FOR i:=1 TO n DO
IF A[i]>=8 THEN Gioi:=Gioi+1
ELSE IF A[i]>=6.5 THEN Kha:=Kha+1
ELSE Trungbinh:=Trungbinh+1;
Writeln('So hoc sinh gioi : ',Gioi);
Writeln('So hoc sinh kha : ',Kha);
Writeln('So hoc sinh Trung binh : ',Trungbinh);
Readln
END.
Download: http://www.mediafire.com/?d4jctev556zp7ap
USES crt;
VAR n,i,Gioi,Kha,Trungbinh: BYTE;
A:ARRAY[1..255] OF REAL;
BEGIN
Writeln('Chuong trinh phan loai hoc sinh ');
Write('Nhap so hoc sinh cua lop : '); Readln(n);
FOR i:=1 TO n DO
BEGIN
Write('Diem Trung Binh cua hoc sinh thu ',i,': '); Readln(A[i]);
END;
Gioi:=0; Kha:=0; Trungbinh:=0;
FOR i:=1 TO n DO
IF A[i]>=8 THEN Gioi:=Gioi+1
ELSE IF A[i]>=6.5 THEN Kha:=Kha+1
ELSE Trungbinh:=Trungbinh+1;
Writeln('So hoc sinh gioi : ',Gioi);
Writeln('So hoc sinh kha : ',Kha);
Writeln('So hoc sinh Trung binh : ',Trungbinh);
Readln
END.
Download: http://www.mediafire.com/?d4jctev556zp7ap