Viết cái lệnh này bằng văn bản hộ mình...

🔻 Chương trình chưa nhập dữ liệu n, giá trị cho 2 mảng

🔻 Chương trình không thể tính toán

🔻 Chương trình cũ:

var    i, n : integer;
        Tbvan, Tbtoan : real;
        Diemtoan, Diemvan : array[1 .. 100] of real;
begin
        writeln('Diem trung binh: ');
        for i := 1 to n do
            writeln(i,' . ', (Diemtoan[i] + Diemvan[i]) / 2 : 3 : 3);
        Tbtoan := 0;
        Tbvan := 0;
        for i := 1 to n do
        begin
            Tbtoan := Tbtoan + Diemtoan[i];
            Tbvan := Tbvan + Diemvan[i];
        end;
        Tbtoan := Tbtoan / n;
        Tbvan := Tbvan /n;
        writeln('Diem trung binh mon Toan : ', Tbtoan : 3 : 2);
        writeln('Diem trung binh mon Van : ', Tbvan : 3 : 2);
end.

🔻 Chương trình mới:

uses crt;
var     i, n : integer;
        Tbvan, Tbtoan : real;
        Diemtoan, Diemvan : array[1 .. 100] of real;
begin
        clrscr;
        write('Nhap n = '); readln(n);
        write('Nhap ', n ,' diem toan : ');
        for i := 1 to n do read(Diemtoan[i]);
        write('Nhap ', n ,' diem van : ');
        for i := 1 to n do read(Diemvan[i]);
        writeln('Diem trung binh: ');
        for i := 1 to n do
            writeln(i,' . ', (Diemtoan[i] + Diemvan[i]) / 2 : 3 : 3);
        Tbtoan := 0;
        Tbvan := 0;
        for i := 1 to n do
        begin
            Tbtoan := Tbtoan + Diemtoan[i];
            Tbvan := Tbvan + Diemvan[i];
        end;
        Tbtoan := Tbtoan / n;
        Tbvan := Tbvan /n;
        writeln('Diem trung binh mon Toan : ', Tbtoan : 3 : 2);
        writeln('Diem trung binh mon Van : ', Tbvan : 3 : 2);
end.