Bài: viết câu lệnh:
A) Khai báo dãy số lưu điểm trung bình của 50 học sinh lớp 8A sau đó xuất ra màn hình.
B) khai báo dãy số lưu chiều cao của 50 học sinh lớp 8B sau đó xuất ra màn hình.
Các bạn giúp mình bài này nhé.Cảm ơn các bạn!
a)
program Diem_trung_binh;
uses crt;
var i, n: integer;
giatriTB: real;
A: array[1..100] of real;
begin
clrscr;
write('Nhap so hoc sinh lop 8A: ');
readln(n);
writeln('Nhap diem cua moi ban:');
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
giatriTB:=giatriTB+a[i]
end;
giatriTB:=giatriTB/n;
writeln('Diem trung binh cua 50 hoc sinh lop 8A la: ', giatriTB:3:2);
readln
end.