var i,n:integer;
    Tbvan, Tbtoan: real;
    Diemtoan, Diemvan: array[1..100] of real;
begin
    writeln('Diem trung binh: '); readln(n);
    for i:=1 to n do
        writeln(i,'. ',(Diemtoan[i]+Diemvan[i])/2:3:1);
    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::2);
end.

__________________
#Duahauvn

P/s: Bạn xem lại có j sai báo mik ngay nha =))

🔻 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.