Viết chương trình nhập vào điểm tin học của các bạn trong lớp. In ra số bạn đạt điểm 10.

0 bình luận về “Viết chương trình nhập vào điểm tin học của các bạn trong lớp. In ra số bạn đạt điểm 10.”

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

         n, i, d: byte;

   Begin

       Write(‘nhap so hoc sinh: ‘); readln(n);

       D:=0;

       For i:=1 to n do

         Begin

            Write(‘diem hoc sinh thu ‘, i, ‘ la: ‘);

            Readln(a[i]);

            If a[i]=10 then inc(d);

         End;

       Write(‘co ‘, d, ‘ hoc sinh dat diem 10’);

       Readln

   End.

   Bình luận

2. program phuongt;
   uses crt;
      var A: array[1..100] of integer;
            i, n: integer;
   begin
           clrscr;
           write(‘Nhap so hoc sinh: ‘); readln(n);
           for i:=1 to n do
           begin
                   write(‘Diem cua ban thu ‘, i, ‘: ‘); readln(A[i]);
           end;
           write(‘Cac ban duoc diem 10 la: ‘);
           for i:=1 to n do if A[i]=10 then write(A[i]:3);
           readln
   end.

   Bình luận