Question

Tìm và sửa lỗi trong ct pascal sau:

           var
              i: integer;
             diemToan, diemVan, diemAnh, diemTrungBinhToan, diemTrungBinhVan,                                     diemTrungBinhAnh: real;
        begin
             diemTrungBinhToan := 0;
             diemTrungBinhVan := 0;
             diemTrungBinhAnh := 0;
             for i := 1 to 100 do
          begin 
             writeln('Nhap diem cua hoc sinh thu ', i, ' : ');
             write('Diem Toan: ');
             readln(diemToan); 
            diemTrungBinhToan := diemTrungBinhToan + diemToan;
             write('Diem Van: ');
             readln(diemVan);
             diemTrungBinhVan := diemTrungBinhVan + diemVan;
             write('Diem Anh: ');
             readln(diemAnh); 
            diemTrungBinhAnh := diemTrungBinhAnh + diemAnh;
            end;
            diemTrungBinhToan := diemTrungBinhToan / 100;
            diemTrungBinhVan := diemTrungBinhVan / 100;
            diemTrungBinhAnh := diemTrungBinhAnh / 100;
            writeln('Diem trung binh mon Toan la: ', diemTrungBinhToan:0:2); 
            writeln('Diem trung binh mon Van la ', diemTrungBinhVan:0:2);
            writeln('Diem trung binh mon Anh la: ', diemTrungBinhAnh:0:2); 

          Readln; 

          End.

Answer 1

Đúng rồi bạn nha. Chương trình không có lỗi sai