Câu trả lời:
mình bít câu này nak để mk giúp bạn
var i,n :integer;
a:array [1..100] of real;
begin
write('nhap so phan tu cua day n=');readln(n);
writeln('nhap gia tri cho cac phan tu cua day');
for i:=1 to n do
begin
write
Môn học
Chủ đề / Chương
Bài học