viết chương trình nhập vào điểm Toán, Văn , Anh của N học sinh và tính điểm trung bình của từng học sinh

0 bình luận về “viết chương trình nhập vào điểm Toán, Văn , Anh của N học sinh và tính điểm trung bình của từng học sinh”

1. program diemtrungbinh;

   uses crt;

   var T,V,A,tb:array[1..100] of real;

         n,i:byte;

   begin

        clrscr;

        write(‘Nhap so luong hoc sinh: ‘);   readln(n);

        for i:=1 to n do

             begin

                  writeln(‘- Hoc sinh thu ‘,i,’:’);

                  write(‘+ Diem toan: ‘);   readln(T[i]);

                  write(‘+ Diem van: ‘);    readln(V[i]);

                  write(‘+ Diem anh: ‘);    readln(A[i]);

                  tb[i]:=(T[i]+V[i]+A[i])/3;

                  writeln(‘Diem trung binh cua ban la: ‘,tb[i]:3:2);

                  readln;

             end;

        readln;

   end.

   Bình luận