viết chương trình nhập điểm môn toán của em lệnh lặp số lần biết trước và lệnh lặp số lần chưa biết trước

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!