Viết chương trình đếm xem mình có bao nhiêu bạn trong lớp số hs nam, số hs nữa đc nhập từ bàn phím

0 bình luận về “Viết chương trình đếm xem mình có bao nhiêu bạn trong lớp số hs nam, số hs nữa đc nhập từ bàn phím”

1. program Min;

   uses crt;

   var A:array[1..10] of real;

       tong,tb:real;

       i,dem:integer;

   begin 

      clrscr;

      tong:=0; tb:=0;

      for i:=1 to 10 do 

      begin

         write(‘Nhap diem cua hoc sinh ‘,i,’: ‘);

         readln(A[i]);

      end;

      for i:=1 to 10 do

      begin

         tong:=tong+A[i];

         if A[i]>5 then inc(dem);

      end;

      tb:=tong/10;

      writeln(‘ ‘);

   Bình luận

2. program Min;
   uses crt;
   var A:array[1..10] of real;
       tong,tb:real;
       i,dem:integer;
   begin 
      clrscr;
      tong:=0; tb:=0;
      for i:=1 to 10 do 
      begin
         write(‘Nhap diem cua hoc sinh ‘,i,’: ‘);
         readln(A[i]);
      end;
      for i:=1 to 10 do
      begin
         tong:=tong+A[i];
         if A[i]>5 then inc(dem);
      end;
      tb:=tong/10;
      writeln(‘ ‘);
      writeln(‘Tong diem cua 10 hs la: ‘,tong:4:2);
      writeln(‘Diem trung binh cua 10 hs la: ‘,tb:4:2);
      writeln(‘So hoc sinh tren 5 diem la: ‘,dem);
      readln
   end.
      

   Đây là code chương trình hoàn thiện cho ba câu a, b, c. Còn câu d thì mình không rõ lắm, như thế nào thì là học sinh giỏi, điều kiện là gì?

   Bình luận