Question

Nhập vào chiều cao của mỗi hs trong lớp.

1.Tính và đưa ra màn hình chiều cao TB của lớp ?

2.Số lượng hs trong lớp có chiều cao thấp hơn chiều cao TB của lớp.

Answer 1

uses crt;

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

n,i,dem:integer;

tb:real;

begin

clrscr;

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

for i:=1 to n do

begin

write('Chieu cao cua ban thu ',i,'='); readln(cao[i]);

end;

tb:=0;

for i:=1 to n do

tb:=tb+cao[i];

writeln('Chieu cao trung binh cua lop la: ',tb/n:4:2);

dem:=0;

for i:=1 to n do

if cao[i]<tb then dem:=dem+1;

writeln('So luong hoc sinh trong lop co chieu cao thap hon chieu cao trung binh cua lop la: ',dem);

readln;

end.