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

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

Viết một bình luận