PROGRAM Phanloai;
USES crt;
VAR i, n, Gioi, Kha, Trungbinh, Kem: INTEGER;
A: ARRAY[1..100] OF REAL;
BEGIN
clrscr;
write('Nhap so cac ban trong lop, n= '); readln(n);
writeln('Nhap diem :');
FOR i:=1 TO n DO BEGIN write(i,'. '); readln(a[i]); END;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
FOR i:=1 TO n DO
BEGIN
IF a[i] >= 8.0 THEN Gioi:= Gioi + 1;
IF a[i] < 5 THEN Kem:=Kem + 1;
IF (a[i] < 8.0) AND (a[i]>= 6.5) THEN Kha:=Kha+1;
IF (a[i]>=5) AND (a[i]<6.5) THEN Trungbinh:=Trungbinh + 1
END;
writeln('Ket qua hoc tap :');
writeln(Gioi,'ban hoc gioi');
writeln(Kha,' ban hoc kha');
writeln(Trungbinh,'ban hoc trung binh');
writeln(Kem,'ban hoc kem');
readln
END.
Download: http://www.mediafire.com/?d83jk4i3vtj72o5
Full 24 Chương trình: http://www.mediafire.com/?81536c8v83pdsmr
USES crt;
VAR i, n, Gioi, Kha, Trungbinh, Kem: INTEGER;
A: ARRAY[1..100] OF REAL;
BEGIN
clrscr;
write('Nhap so cac ban trong lop, n= '); readln(n);
writeln('Nhap diem :');
FOR i:=1 TO n DO BEGIN write(i,'. '); readln(a[i]); END;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
FOR i:=1 TO n DO
BEGIN
IF a[i] >= 8.0 THEN Gioi:= Gioi + 1;
IF a[i] < 5 THEN Kem:=Kem + 1;
IF (a[i] < 8.0) AND (a[i]>= 6.5) THEN Kha:=Kha+1;
IF (a[i]>=5) AND (a[i]<6.5) THEN Trungbinh:=Trungbinh + 1
END;
writeln('Ket qua hoc tap :');
writeln(Gioi,'ban hoc gioi');
writeln(Kha,' ban hoc kha');
writeln(Trungbinh,'ban hoc trung binh');
writeln(Kem,'ban hoc kem');
readln
END.
Download: http://www.mediafire.com/?d83jk4i3vtj72o5
Full 24 Chương trình: http://www.mediafire.com/?81536c8v83pdsmr