nhập số điểm kiểm tra môn toán của 20 bạn học sinh dùng câu lênh for…do nha m.n

0 bình luận về “nhập số điểm kiểm tra môn toán của 20 bạn học sinh dùng câu lênh for…do nha m.n”

1. vd nha:Program Phan_loai;

   uses crt;

   Var i, n, G, Kh, TB, K: integer;

   A: array[1..100] of real;

   Begin

   clrscr;

   write(‘Nhap so HS trong lop, n= ‘);

   readln(n);

   writeln(‘Nhap diem :’);

   For i:=1 to n do

   Begin

   write(i,’ . ‘);

   readln(a[i]);

   End;

   G:=0; Kh:= 0; TB:= 0; K:= 0;

   for i:=1 to n do

   Begin

   if a[i] >= 8.0 then G:= G + 1;

   if a[i] <5.0 then K:= K + 1; if (a[i] =6.5) then Kh:= Kh + 1;

   if (a[i] >= 5 ) and (a[i] < 6.5) then TB:= TB + 1;

   end;

   writeln(‘ Ket qua hoc tap: ‘);

   writeln(G, ‘ ban hoc gioi ‘);

   writeln(Kh, ‘ ban hoc kha ‘);

   writeln(TB, ‘ ban hoc trung binh’);

   writeln(K, ‘ ban hoc kem ‘);

   Readln;

   End.

   Bình luận

2. program oken;

   uses crt;

   var a: array [1..100] of real;

         mon:byte;

         tb:real;

   begin

   clrscr;

   write(‘nhap so mon: ‘); readln(mon);

   for i:=1 to n do 

       begin

          write(‘nhap diem mon thu ‘,i,’: ‘); readln(a[i]);

          tb:=tb+a[i];

       end;

   writeln(‘diem TB cua ‘,n,’: ‘,tb/n:0:3);

   readln;

   end.

   Bình luận