Viết chương trình tính điểm TB môn Toán của 40 bạn học sinh trong lớp 12/08/2021 Bởi Delilah Viết chương trình tính điểm TB môn Toán của 40 bạn học sinh trong lớp
Var i,S: integer; a:array[1..100] of byte; Begin For i:=1 to 40 do Read(a[i]); For i:= 1 to 40 do S:= S+i; Writeln(S/40); End. Bình luận
Var i,S: integer;
a:array[1..100] of byte;
Begin
For i:=1 to 40 do
Read(a[i]);
For i:= 1 to 40 do
S:= S+i;
Writeln(S/40);
End.