nhập số điểm kiểm tra môn toán của 20 bạn học sinh dùng câu lênh for...do nha m.n

vd nha: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.

program oken;

uses crt;

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

      mon:byte;

      tb:real;

begin

clrscr;

write('nhap so mon: '); readln(mon);

for i:=1 to n do 

    begin

       write('nhap diem mon thu ',i,': '); readln(a[i]);

       tb:=tb+a[i];

    end;

writeln('diem TB cua ',n,': ',tb/n:0:3);

readln;

end.