viết chương trình nhập và in ra điểm tổng kết học kì I của các bạn học sinh lớp 8A

program Diem_tong_ket;

ues crt;

var  n,i:integer;

        A:array[1..100] of integer;

begin

  clrscr;

     write(‘nhap so ban trong lop;’);readln(n);

      writeln(‘nhap diem cua cac ban’);

       for i:=1 to n do

end;

     begin

write(‘a[‘,i,’]=’);readln(a[i]);

write(‘nhap so mon’);readln(m);

 end;

a[i]:=k;

k:=k/m;

writeln(‘diem tong ket cua tung ban la’k);

readln;

end.