Viết chương trình nhập vào điểm bình quân các môn học và in ra màn hình điểm các môn vằu học

0 bình luận về “Viết chương trình nhập vào điểm bình quân các môn học và in ra màn hình điểm các môn vằu học”

1. uses crt;

   var i,n,kha,gioi,kem,tb:integer;

   a : array [1..1000] of real;

   begin

   clrscr;

   writeln(‘Nhap so hoc sinh cua lop:’);readln(n);

   kha:=0;gioi:=0;kem:=0;tb:=0;

   writeln(‘Nhap diem cua cac ban:’);

   for i := 1 to n do

   begin

   write(‘Ban thu ‘,i,’: ‘);readln(a[i]);

   if a[i] >= 8 then gioi := gioi + 1;

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

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

   if a[i] < 5 then kem := kem + 1

   end;

   writeln;

   writeln(‘So ban diem gioi la: ‘,gioi);

   writeln(‘So ban diem kha la: ‘,kha);

   writeln(‘So ban diem trung binh la: ‘,tb);

   writeln(‘So ban diem kem la: ‘,kem);

   readln;

   end.

   Bình luận