Question

Viết CT nhập vào cân nặng của học sinh lớp 11. Đếm xem có bao nhiều học sinh có cân nặng > 50,0kg

Ghi đầy đủ giúp mình với ạ:(( Thanks

Answer 1

Program hotrotinhoc_hoc24;

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

i,n,d: ineteger;

begin

write('Nhap so ban hoc sinh lop 11: '); readln(n);

d:=0;

for i:=1 to n do

begin

write('Nhap can nang ban thu ',i,' : '); readln(a[i]);

if a[i]>50 then inc(d);

end;

write('Co ',d,' ban co can nang lon hon 50kg');

readln

end.