Question

Khai báo biến trung bình lưu điểm trung bình môn cho học sinh lớp 8b

Answer 1

Đối với bài này mình sẽ làm một chương trính nhé

Lời giải :

program hotrotinhoc ;

var a : array[1..200] of real ;

DTB : real ;

i,n: integer ;

begin

write('Lop 8B co so hoc sinh la :'); readln(n);

writeln('Nhap diem cua moi ban');

for i:= 1 to n do

begin

write('Diem cua ban thu ',i,':'); readln(a[i]);

end;

DTB:=0;

for i:= 1 to n do

DTB:=DTB+a[i];

write('Diem trung binh mon cua lop 8B la : ',DTB);

readln

end.