Uses crt;
Var i, n: integer;
S: real;
A: ARRAY[1..100] OF REAL;
BEGIN
Clrscr;
Repeat
Write('Nhap so cac so trong day so: '); Readln(n);
Until n>0;
For i:=1 to n do
Begin
Write('A[',i,']: ');
Readln(A[i]);
End;
For i:=1 to n do S:=S+A[i];
Write('Tong day so tren la: ',S:0:3);
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!