Sử dụng cấu trúc lặp để viết chương trình tính tổng của 1 dãy số thực nhập từ bàn phím. Điều kiện kết thúc là khi nhập vào số 0 Mn giúp em với ạ!!
2 câu trả lời
uses crt;
var n,s:longint; a:array[1..1000000]of longint;
begin
clrscr;
repeat
inc(n);
write('Nhap phan tu thu ',n,': ');readln(a[n]);
inc(s,a[n]);
until a[n]=0;
writeln('Tong: ',s);
readln
end.
