Viết chương trình nhập điểm cho 30 học sinh. In ra màn hình số học sinh giỏi( điểm >=8)

0 bình luận về “Viết chương trình nhập điểm cho 30 học sinh. In ra màn hình số học sinh giỏi( điểm >=8)”

1. Program Hotboy;

   Uses crt;

   Var B:array[1..30] of real;

   D:byte;

   Begin

   Clrscr;

   D:=0;

   For i:=1 to 30 do

   Write(‘B[‘,i,]’);

   Readln(B[i]);

   For i:=1 to 20 do

   If A[i] >= 8 then inc(d);

   Write(‘so hs gioi la’,D);

   Readln

   End.

   Bình luận

2. uses crt;
   var n,i,d : integer;
   a : array[1..30] of real;
   begin d:=0;
   for i:=1 to 30 do begin
   write(‘Nhap a[‘,i,’]=’); readln(a[i]);
   end;
   for i:=1 to 30 do if a[i] >= 8 then d:=d+1;
   write(‘So hoc sinh gioi :’, d);
   readln
   end.

   Bình luận