đây là mình làm theo pascal nha

chúc bạn học tốt!

cho mình xin ctrlhn nha, mình cảm ơn

uses crt;
var i,n:integer;
    T:array[1..100] of real;
    V:array[1..100] of real;
    sT,sV: real;
begin
 clrscr;
 sT:=0; sV:=0;
 write('nhap so ban trong lop: ');readln(n);
 for i:=1 to n do
  begin
   write('nhap diem Toan cua ban thu ',i,': ');readln(T[i]);
   write('nhap diem Van cua ban thu ',i,': ');readln(V[i]);
   sT:= sT+T[i]; sV:=sV+V[i]; clrscr;
  end;
 writeln('diem trung binh hai mon Toan, Van cua cac ban la: ',(sT+sV)/2/n:3:1);
 writeln('diem trung binh mon Toan cua cac ban la: ',sT/n:3:1);
 writeln('diem trung binh mon Van cua cac ban la: ',sV/n:3:1);
 readln;
end.

uses crt;

var t, v : array [1 .. 100] of real;

i, n : integer;

begin

clrscr;

write('Nhap so HS = '); readln(n);

for i := 1 to n do

    begin

        write('Nhap diem 2 mon HS thu ', i ,' : ');

        readln(t[i], v[i]);

    end;

writeln('Danh sach DTB : ');

for i := 1 to n do

writeln('Diem trung binh HS thu ', i ,' : ', (t[i] + v[i]) / 2 : 2 : 1);

readln

end.