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

0 bình luận về “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”

1. 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!

   Bình luận