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)

0 bình luận về “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)”

1. 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.

   Bình luận

2. 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!

   Bình luận