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