Question

Sử dụng biến mảng viết chương trình nhập điểm các bạn trong lớp va và in ra màn hình kết quả học tập : loai gioi , khá, trung bình và kém ( tiêu chuẩn từ 8. 0 trở lên đạt loại giỏi , từ 6. 5 đến 7. 9 đạt loại khá , từ 5. 0 đến 6. 4 loại trung bình và dưới 5. 0 đạt loại kém )

Answer 1

Program Phan_loai; uses crt; Var i, n, G, Kh, TB, K: integer; A: array[1..100] of real; Begin clrscr; write('Nhap so HS trong lop, n= '); readln(n); writeln('Nhap diem :'); For i:=1 to n do Begin write(i,' . '); readln(a[i]); End; G:=0; Kh:= 0; TB:= 0; K:= 0; for i:=1 to n do Begin if a[i] >= 8.0 then G:= G + 1; if a[i] <5.0 then K:= K + 1; if (a[i] =6.5) then Kh:= Kh + 1; if (a[i] >= 5 ) and (a[i] < 6.5) then TB:= TB + 1; end; writeln(' Ket qua hoc tap: '); writeln(G, ' ban hoc gioi '); writeln(Kh, ' ban hoc kha '); writeln(TB, ' ban hoc trung binh'); writeln(K, ' ban hoc kem '); Readln; End.

Answer 2

Program Phan_loai;

uses crt;

Var i, n, G, Kh, TB, K: integer;

A: array[1..100] of real;

Begin

clrscr;

write('Nhap so HS trong lop, n= ');

readln(n);

writeln('Nhap diem :');

For i:=1 to n do

Begin

write(i,' . ');

readln(a[i]);

End;

G:=0; Kh:= 0; TB:= 0; K:= 0;

for i:=1 to n do

Begin

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

if a[i] <5.0 then K:= K + 1; if (a[i] =6.5) then Kh:= Kh + 1;

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

end;

writeln(' Ket qua hoc tap: ');

writeln(G, ' ban hoc gioi ');

writeln(Kh, ' ban hoc kha ');

writeln(TB, ' ban hoc trung binh');

writeln(K, ' ban hoc kem ');

Readln;

End.