pascal viết chương trình nhập điểm hai môn văn và toán của các bạn trong lớp.tính điểm trung bình của từng bạn ,tính điểm trung bình của môn văn và toán của cả lớp.in kết quả ra màn hình
pascal viết chương trình nhập điểm hai môn văn và toán của các bạn trong lớp.tính điểm trung bình của từng bạn ,tính điểm trung bình của môn văn và toán của cả lớp.in kết quả ra màn hình
uses crt;
var ban,i:integer;
tb,t:real;
van,toan:array[1..100] of byte;
begin
clrscr;
t:=0;
repeat
begin
write(‘nhap so ban hoc: ‘);readln(ban);
for i:=1 to ban do
begin
write(‘nhap diem mon van cua ban ‘,i,’: ‘);readln(van[i]);
write(‘nhap diem mon toan cua ban ‘,i,’: ‘);readln(toan[i]);
tb:=(van[i]+toan[i])/2;
writeln(‘diem trung binh cua ban ‘,i,’ la: ‘,tb:1:2);
t:=t+tb;
end;
end;
until ban>0;
writeln(‘diem trung binh cua ca lop la: ‘, (t/ban):1:2);
readln;
end.