Program nhapdiem;
Uses crt;
Var A[i]: ARRAY[1..100] OF REAL;
BEGIN
Clrscr;
{so lan biet truoc}
Write('Nhap so lan nhap diem: '); Readln(n);
For i:=1 to n do Readln(A[i]);
{so lan chua biet truoc}
i:=0;
Repeat
Inc(i);
Readln(A[i]);
Until A[i]=0;
Readln;
END.
Cảm ơn bạn đã đọc câu trả lời của mk, chúc bạn học tốt! Cho mk câu trả lời hay nhất nha! Thanks!