Question

Viết Chương Trình nhập điểm các bạn học sinh.

In ra màn hình các điểm dưới 5

Tính trung bình cộng điểm các bạn học sinh.

Answer 1

var i, n, S, TB : integer;

diem : array [1..100] of real;

begin

write ( ' so hoc sinh la n = '); readln (n);

writeln ('nhap so diem');

for i :=1 to n do

begin

readlm (diem[i]);

end;

begin

for i:=1 to n do

if diem[a]>5 then

S:= S + diem[i];

TB:= S/n;

writeln ('diem trung binh cac so tren 5 la' TB);

end;

End.