Viết chương trình nhập điểm cho 20 học sinh. In ra màn hình số học sinh giỏi( điểm >=8)

program ct;

uses crt;

var Diem:array[1..20] of real;

      i,dem:integer;

begin clrscr;

   for i:=1 to 20 do

     begin

        write('Nhap diem hoc sinh thu ',i,': '); readln(Diem[i]);

     end;

     dem:=0;

   for i:=1 to 20 do

     if Diem[i] >=8 then dem:=dem+1;

   writeln('So hoc sinh gioi la ',dem);

readln;

end.

Học tốt!

Program Hotboy;

Uses crt;

Var B:array[1..20] of real;

D:byte;

Begin

Clrscr;

D:=0;

For i:=1 to 20 do

Write('B[',i,]');

Readln(B[i]);

For i:=1 to 20 do

If A[i] >= 8 then inc(d);

Write('so hs gioi la',D);

Readln

End.